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E vero: piccolo è bello! 

Alla scoperta dello 
ZX SPECTRUM 


a cura di Rita Bonelli 


ZX Spectrum è l’ultimo nato della famiglia Sinclair. E un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 

Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 


320 pagine. Lire 22.000 Codice 337 B 


Per ordinare il volume utilizzare l’apposito tagliando inserito in fondo alla rivista 


Scrive, suona, gioca, entusiasma 

Gaetano Marano 
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PER 

E ZXBO CON NUOVA ROM + HARDWARE 

Per le sue qualità e il suo modestissimo prezzo lo ZX 81 della 
Sinclair è il computer più venduto nel mondo. 

Oggi, sempre con una modestissima spesa, si può imparare a 
sfruttare questo eccezionale strumento al limite delle sue 
capacità. Basta scorrere questo libro per scoprire quante cose 
lo ZX 81 può fare con l'aggiunta di alcuni semplici ed 
economici componenti. Ad esempio, tramite un semplice 
circuito musicale può riprodurre 50 note su 4 ottave e, sempre 
grazie a una modifica hardware da poche migliaia di lire, lo 
ZX 81 diventa anche l’unico computer in grado di conferire 
effetti sonori ai giochi inseriti tra i suoi programmi. Ma non è 
tutto. Un’altra novità di quest’opera, preziosa anche per chi 
possiede lo ZX 80 con ROM, è il regalo di alcune tastiere 
disegnate da sovrapporre a quella sensitiva dell’apparecchio, 
per ricavarne altre, speciali funzioni. 

136 pagine. Lire 12.000 Codice 520 D 
Per ordinare il volume 
utilizzare l’apposito tagliando 
inserito infondo alla rivista 
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Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l’accuratezza e la velo- 
cità di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabi- 
lità che un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi 
riguardanti la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che 
al suo stile, e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida 
permetterà che le vostre buone idee e i vostri programmi vengano più facilmente accettati 
per la pubblicazione: 


1 l’angolo superiore sinistro della prima pagi- 
na dovrà contenere: nome, cognome, indi- 
rizzo, numero telefonico, codice fiscale e data di 
spedizione. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere il nome del computer al 
quale il lavoro si riferisce, unitamente alla confi- 
gurazione richiesta (memoria occorrente, even- 
tuali periferiche e così via). 

3 il titolo sottolineato dell’articolo dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’ango- 
lo superiore destro contenga un’abbreviazione 
del titolo e del cognome, unitamente al numero 
di pagina progressivo. Per esempio, Horace 
Goes... /Brambilla/2. 

5 tutte le linee del testo dell’articolo dovranno 
essere battute con spazio 2 o spazio 3, e un 
margine di circa un centimetro dovrà trovarsi ad 
entrambi i lati dello scritto. 

6 dovrà essere usata una carta formato A4 e lo 
scritto dovrà occupare un solo lato del fo- 
glio (caratteri maiuscoli e minuscoli). 

7 i fogli dovranno essere uniti con una clip. 

8 avendo intenzione di spedire più di un arti- 
colo, questi dovranno essere inviati separa- 
tamente insieme alla rispettiva copia su suppor- 
to magnetico. 

9 programmi brevi (meno di 20 linee) potran- 
no essere inseriti nel testo, mentre program- 
mi più lunghi dovranno essere listati separata- 
mente. È ESSENZIALE per noi disporre di una 
copia del programma registrata più volte su 
supporto magnetico, su entrambi i lati dello 
stesso. È preferibile usare nastri di buona quali- 
tà e di lunghezza non eccessiva; la cassetta o la 
cartuccia per Microdrive dovranno essere eti- 
chettati con il nome dell’autore, il titolo dell’ar- 
ticolo, il computer interessato e soprattutto le 


eventuali espansioni richieste. Come suggeri- 
menti di programmazione, si consiglia di usare, 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere diretta- 
mente in INVERSE VIDEO. Un rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 

per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio 
RETURN, LIST, RND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinear- 
la piuttosto che scriverla in carattere maiuscolo. 

1 4 gli articoli ed i programmi potranno avere 
X qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto comples- 
si. 

volendo includere fotografie, queste do- 
vranno essere in formato 24 x 36, o 6 x 6, 
in bianco e nero o diapositive. 

non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 
editrici. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del programma (da un minimo di L. 
50.000 a un massimo di L. 300.000). Il paga- 
mento è effettuato in caso di pubblicazione del 
lavoro. 

il materiale ricevuto e non pubblicato non 
verrà restituito. 

Spedite i vostri lavori a: 

SUPERSINC 
Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i contributi mi- 
gliori. 

La Redazione 
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ccoci qua! Ci aspettavate? Speriamo di si! Gli utenti a cui ci rivol- 
giamo normalmente sono alla loro prima esperienza in questo 
campo. 

Questo determina, oltre ad un grande entusiasmo, l’impatto imme- 
diato con la realtà che si è creata attorno a questo tipo di macchine. 
L’utente che avvicina per la prima volta un personal computer, dopo 
aver avidamente letto e provato quei piccoli e volutamente banali 
programmi proposti dal manuale, si ritrova a dover cercare, su tutte 
le riviste di settore, altro materiale da far “girare” sul nuovo amico. 
La ricerca cui si accennava è talvolta vana e spesso economicamente 
onerosa. 

Ecco dunque SCIPERSINC nato proprio per risolvere, speriamo in 
maniera brillante, il problema. 

SCIPERSINC è infatti una rivista dedicata ad un computer specifico 
e tutti gli argomenti trattati (hardware, software, libri, notizie, etc.) 
saranno rigorosamente legati a quella macchina o famiglia di mac- 
chine. 

La rivista, oltre a porsi come naturale complemento all’utilizzo del 
computer, cercherà di fornire all’utente notizie e informazioni relati- 
ve alle novità del mercato hardware e software. 

I programmi proposti sono selezionati e tradotti dalle migliori riviste 
inglesi e americane. 

SCIPERSINC è una rivista indipendente: non legata, cioè, al costrut- 
tore o al distributore del computer trattato. Questa scelta garantisce 
al lettore l’obbiettività necessaria di una rivista che nasce proprio 
nell’interesse dell’utente. 

Inutile dire che auspichiamo la collaborazione dei lettori che, come 
sempre, sono i giudici assoluti di quanto è proposto; attendiamo 
dunque giudizi, commenti e quant’altro possa esserci utile per fare 
la rivista su misura per voi. 

Pietro Dell’Orco 
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™ l Cari lettori, 

come potete immaginare è un po’ difficile, nel primo numero di una rivista, disporre di lettere 
che non siano riprese da altri giornali o addirittura inventate di sana pianta: così, solo per questa 
volta, ci permettiamo di invadere lo spazio che dai prossimi numeri verrà occupato da voi. Tutto 
ciò che abbiamo da dirvi è che... aspettiamo i vostri contributi! E un’altra cosa ancora. 

Ci piacerebbe moltissimo vedere questa rubrica diventare, più che un botta-e-risposta fra voi e 
SUPERSINC, uno spazio dove scambiarsi esperienze, trucchi, consigli, fare domande e dare ri- 
sposte a tutto ciò che può essere di interesse generale. Avete trovato la soluzione di un’adventu- 
re? Avete scoperto cosa accade digitando PLOT 127,88:DRAW -50,50,2114? Siete in difficoltà 
con i vostri Microdrive? La linea x del programma tot provoca la fusione dell’alimentatore? In 
parole povere, scriveteci per qualunque cosa abbiate da dirci, e pubblicheremo le lettere più in- 
teressanti e divertenti. Nell’attesa, vi diamo qualche esempio di “lettere a SUPERSINC ”, natu- 
ralmente inventate e copiate con la massima spudoratezza. A risentirci! 


La redazione ■ 


Ho scoperto, durante una partita a Ma- 
nie Miner, un fantastico “bug”, che 
consente nientemeno di cominciare il 
gioco partendo da una qualsiasi dei 20 
schermi a scelta. Consiste nel digitare 
(a questo punto ci fermiamo per non 
disgustare i puristi di Manie Miner. Ma 
se i non puristi sono tanti, potremmo 
anche dirvelo... una volta verificata la 
cosa, n.d.r.). 

Ben Hordyment - Clapham, London 
SW4 


Caro SUPERSINC, 

nel vostro gioco ‘‘Pippo, Pluto e Pape- 
rino”, sostituendo la linea 450 con 
LET A$ = “GAMBADILEGNO”, la rou- 
tine di scrolling video raddoppia la ve- 
locità di esecuzione. 

Walter. E. Disney - Epcot (USA) 


Cara Redazione, 

ho scoperto un sistema alternativo al 
BREAK per fermare un programma: 
occorre premere contemporaneamen- 
te i tasti Z, CAPS SHIFT e SYMBOL 
SHIFT. Trovo che potrebbe tornare uti- 
le nel caso non si voglia usare il tasto 
BREAK. 

Peter Ryan - Middlesex 

Caro SUPERSINC, 

accludo un miniprogramma per trac- 
ciare spirali: 

5 INPUT x,y 


10 INPUT ‘‘Che numero?”;p 
15 PLOT 128,88 

20 FOR a = 0 TO 500* PI STEP PI/p 
30 DRAW x *a*SIN a, y*a*COS a 
40 NEXT a 

Provate anche ad aggiungere OVER 1. 

Simon White - Gloucestershire 

Spettabile redazione, 
ho letto della prossima uscita di un 
nuovo computer Sinclair. Non potreste 
darmi delle informazione più dettaglia- 
te in proposito? La Spectrum conti- 
nuerà a essere prodotto o farà la fine 
del TI/99? 

Ruggero Amiconi - Abbiategrasso 
Caro SUPERSINC, 

sono un ragazzo di 1 1 anni appassio- 
nato di computer. Mi piacerebbe sape- 
re dove posso trovare i Microdrive per 

11 mio Spectrum e se potrò copiarci so- 
pra i miei videogames. 

Alessio Ronconi - Milano 


Egregio Signor Direttore, 
di ritorno da un viaggio in Inghilterra 
ho portato a casa in regalo per mio fi- 
glio la cassetta Atic Atac. 

Sono ormai due settimane che stiamo 
cercando la soluzione del gioco, senza 
trovarla. Lei non sa se qualcuno ci po- 
trebbe aiutare o dare dei consigli? La 
ringrazio vivamente. 

Salvatore Aguglia - Benevento 


Spettabile Redazione di SUPERSINC, 
sono uno studente diciassettenne da 
circa otto mesi possessore di uno 
Spectrum 48K. Con l’esercizio ho svi- 
luppato una, credo, notevole capacità 
di programmazione e da qualche tem- 
po ho cominciato a scrivere dei video- 
giochi per me e per i miei amici. È pos- 
sibile farli pubblicare su SUPERSINC o 
riuscirli a venderli? Vi allego una cas- 
setta C90 con alcune delle mie ‘‘crea- 
zioni”. Ringraziandovi per l’attenzione 
vi saluto. 

Edoardo Cecchi - Firenze 


Egregio Direttore, 

si può collegare lo Spectrum con un 
Commodore 64? È da tempo che io e 
un mio collega di ufficio (che ha il sud- 
detto Commodore) cerchiamo un si- 
stema rapido per scambiarci program- 
mi senza dover ricopiare i reciproci li- 
stati, ma, forse per la nostra relativa 
inesperienza di programmazione, non 
siamo riusciti finora ad ottenere alcun 
risultato. Esiste qualche programma 
per realizzare ciò o il nostro è un caso 
senza speranza? 

Giovanni Mengoni - Castelfidardo 
(AN) 


Gentile redazione di SUPERSINC, 
ho comprato il gioco ‘‘ah diddums” per 
il mio Spectrum, solo che non riesco a 
copiarlo. Come posso effettuare la co- 
piatura, al solo scopo (glielo garanti- 
sco) di avere una copia di sicurezza nel 
caso che quella che ho comprato si ro- 
vini? 

Francesco De Curtis - Castellammare 
di Stabia (NA) 


Potete consigliarmi dei libri che spie- 
ghino dettagliatamente il linguaggio 
macchina dello Spectrum? 

Stefano Bonora - Bologna 


Carissima Redazione di SUPERSINC, 
ho appena comprato uno Spectrum 
48K per la mia attività di programma- 
zione “hobbistica”, e ho letto che su 
quest’ultimo è possibile programmare 
anche in LISP e Pascal. Sapete se i ri- 
spettivi compilatori sono disponibili in 
Italia o se bisogna per forza rivolgersi 
all’estero? 

Caterina Donati - Pisa 
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Passata la prima ondata di entusia- 
mo esaminiamo caratteristiche, 
pregi e difetti deU’ultimo nato di 
casa Sinclair. 


L o scorso gennaio è stato presenta- 
to, con un’uscita a sopresa nella mi- 
gliore tradizione Sinclair, il nuovo QL. 
Promettente nel nome (“Quantum 
Leap’’, salto qualitativo) ed indubbia- 
mente allettante nelle caratteristiche, 
questa macchina ha sorprendentemen- 
te sollevato parecchie perplessità. 

Sir Clive Sinclair, d’altra parte, è certo 
di aver aperto un nuovo segmento nel 
mercato dell’informatica individuale, 
finora tradizionalmente suddiviso in 
home, personal e business. 

11 QL, infatti, se per prezzo può senz’al- 
tro essere annoverato fra gli home 
computer, quanto a prestazioni è al 
vertice della fascia business. 

Questa sua doppia natura è conferma- 
ta da una parte dalla presenza di due 
prese per joystick, dall’altra dalla note- 
vole dotazione di software professiona- 
le compresa nel prezzo. 

Questa, come vedrete, è solo una delle 
molte, ed in un certo senso affascinan- 
ti, contraddizioni del QL, un computer 
che forse non siamo ancora preparati a 
valutare correttamente. 

L’esterno 

Molto elegante nella sua essenzialità il 
QL si presenta come un oggetto nero, 
dai riflessi quasi metallici, largo poco 
meno di 50 cm, profondo circa 14 cm 
e con uno sviluppo in altezza di non 
più di qualche centimetro, leggermen- 
te inclinato in avanti per l’effetto di 
una coppia di piedini smontabili. 

La tastiera, che occupa la superficie 
dell’apparecchio eccettuata una por- 
zione quadrata sulla destra, è standard 
per dimensioni (finalmente!) e disposi- 
zione dei tasti (quasi ...), che sono ben 
65, fra cui cinque tasti di funzione pro- 


di Marcello Spero 


grammabili. Gli esemplari che abbia- 
mo avuto modo di vedere, essendo de- 
stinati al mercato britannico, montava- 
no il tipo QWERTY, ma è prevista per 
le unità destinate al nostro mercato la 
tastiera nazionalizzata. 

Rinviando un giudizio definitivo alla 
vera prova della macchina, che speria- 
mo di poter effettuare quanto prima, 
possiamo dire che la prima impressio- 
ne suscitata da questa tastiera è 
senz’altro positiva. I tasti, costruiti ad 
intarsio per garantirne la durata della 
leggibilità, producono un “click’’ chia- 
ramente udibile. Sotto di loro, inoltre è 
presente una membrana in gomma, a 
protezione dei contatti elettrici. Nel 
complesso, insomma, si tratta di una 
tastiera che pur non raggiungendo il li- 
vello di eccellenza di alcuni prodotti, 
d’altronde ben più costosi, presenti sul 
mercato, dovrebbe soddisfare anche 
l’utenza più esigente. L’unico appunto 
potrebbe riguardare la posizione del 
tasto CTRL e di alcuni simboli, che 
avrebbe potuto essere più rigorosa- 
mente standard. Infine una pignoleria: 
non sarebbe stato proprio possibile 
collocare in quel quadrato vuoto un 
bel tastierino numerico? 

Subito sotto il bordo anteriore, in cor- 
rispondenza dell’area quadrata qui ac- 
cennavamo, troviamo le due feritone 
dei Microdrive, la memoria di massa 


del QL di cui parleremo diffusamente 
più avanti. Ai lati della macchina tro- 
viamo invece i connettori di espansio- 
ne: a destra per ulteriori Microdrive (fi- 
no a sei), a sinistra per la RAM aggiun- 
tiva (0,5 Mbyte). Accanto al connettore 
per i Microdrive è inoltre presente un 
pulsantino di reset, per evitare, anche 
in casi estremi, la manovra di spegni- 
mento e riaccensione, altrimenti ne- 
cessaria per ripristinare le condizioni 
iniziali. La scelta di questa posizione 
dovrebbe garantire l’utilizzatore da re- 
set accidentali, con conseguenze sem- 
pre disastrose. 

Il pannello posteriore ospita invece, ol- 
tre alle prese per monitor e televisore, 
utilizzabili contemporaneamente, ed 
all’ingresso dell’alimentazione, le usci- 
te per la comunicazione con l’esterno, 
che comprendono due porte per il col- 
legamento in rete locale, due interfac- 
ce seriali tipo RS-232-C, due prese per 
joystick. È inoltre presente un connet- 
tore per cartucce ROM, mentre non 
esiste, sempre nella tradizione Sin- 
clair, un interruttore di accensione. 

L’interno 

Molto ordinato si presenta suddiviso in 
tre grandi zone: un’area centrale occu- 
pata dalla piastra del circuito vero e 
proprio, una porzione posta anterior- 
mente sulla destra contenente la mec- 
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canica dei due Microdrive ed infine 
un’ampia zona vuota sulla sinistra de- 
stinata ad accogliere l’espansione di 
memoria. 

Fra i numerosi circuiti integrati spicca- 
no i due processori affiancati dalla lun- 
ga fila di memorie, ed il modulatore 
per l’uscita TV, dello stesso tipo utiliz- 
zato nello Spectrum. La mancanza di 
qualsiasi tipo di documentazione ci 
impedisce di indagare più a fondo sul 
significato dei numerosi integrati mi- 
nori sparsi un po’ dappertutto. 
Vediamo invece in dettaglio l’architet- 
tura del sistema, fonte anch’essa di po- 
lemiche sulla validità di alcune scelte. 
La CPU, cioè il cuore operativo del si- 
stema, è costituita da un processore 
68008 Motorola di cui parleremo diffu- 
samente più avanti, data l’importanza 
di questa scelta. Ad esso sono affianca- 
ti, per gestire i rapporti con l’esterno, 
un processore ausiliario Intel 8049 e 
due circuiti integrati appositamente 
progettati realizzati per il QL. In que- 
sto modo la CPU è sgravata da tutte le 
attività che potrebbero rallentarla. In 
particolare, il processore ausiliario si 
occupa della tastiera, della generazio- 
ne dei suoni e della ricezione attraver- 
so le due interfacce RS-232-C, mentre i 
due integrati controllano l’uno il video 
e la memoria e l’altro i Microdrive, l’oro- 
logio (il QL contiene un orologio in 
tempo reale indipendente), il collega- 
mento in rete locale, nonché la tra- 
smissione di dati attraverso le interfac- 
ce RS-232. 

Per quanto riguarda la memoria trovia- 
mo una ROM da 32 Kbyte contenente 


linguaggio e sistema operativo, e 128 
Kbyte di RAM. In un futuro molto pros- 
simo, inoltre, sarà disponibile 
un’espansione di memoria da ben mez- 
zo megabyte che, inserita nell’allog- 
giamento già previsto, porterà la me- 
moria totale del sistema al rispettabile 
livello di 640 Kbyte. 

Una tale disponibilità di memoria, an- 
che se verrà sfruttata in pratica da una 
fetta molto ristretta di utenza, dà un 
idea delle possibilità offerte dall’ado- 
zione del 68008 come CPU. Per que- 
sto, e per la novità costituita dall’im- 
piego di un processore di tale potenza 
in una macchina di questa categoria, 
esaminiamo più in dettaglio la CPU del 
QL. 


La CPU 

È costituita, come abbiamo detto, da 
un processore 68008 Motorola. La se- 
rie contrassegnata dalla sigla 68000, 
di cui il 68008 fa parte, sta riscuotendo 
un notevole successo, che porterà pro- 
babilmente questo tipo di processore a 
divenire di uso standard nell’ambito 
delle applicazioni personali dell’ultima 
generazione. Tutti i componenti della 
famiglia 68000 possiedono un’orga- 
nizzazione interna a 32 bit, ma differi- 
scono fra loro per l’ampiezza del bus 
dati, che è il veicolo con cui scambia- 
no informazioni con l’esterno. Il 
68000, infatti, possiede un bus a 16 
bit, il futuro 68020 lo avrà a 32 bit 
mentre il 68008 può disporre di un bus 
a 8 bit, analogo cioè a quello utilizzato 
dal Z80 che equipaggia lo Spectrum. 


Questo non vuole certamente dire che 
quando la Sinclair afferma di aver rea- 
lizzato un computer con processore a 
32 bit stia sostenendo qualcosa di non 
esatto, più semplicemente un compu- 
ter di questo tipo, sebbene incompara- 
bilmente più veloce di qualunque suoi 
concorrente provvisto di un processo- 
re a 8 bit, risulterà leggermente svan- 
taggiato nelle operazioni 1/0 e di acces- 
so alla memoria rispetto a quegli ela- 
boratori che dispongono di processori 
con bus più ampi. 

La scelta di questo tipo di processore, 
d’altra parte, è giustificata dal fatto che 
organizzare la memoria intorno ad un 
bus ad 8 bit è, allo stato attuale delle 
cose, più semplice e più economico. 
Possedere un’architettura interna a 32 
bit, comunque, conferisce a tutto il si- 
stema una grande potenza. 11 68008, in- 
fatti, possiede ben 17 registri di 32 bit 
ciascuno e questo, come tutti coloro 
che programmano in linguaggio mac- 
china sanno bene, vuol dire dover usa- 
re un numero inferiore di istruzioni per 
eseguire le stesse operazioni. 

Per quanto riguarda la quantità di me- 
moria direttamente indirizzabile, inve- 
ce, il 68008, al pari degli altri compo- 
nenti della famiglia, possedendo un 
bus indirizzi da 24 bit può gestire 16 
Mbyte, quantità più Che sufficiente per 
applicazioni personali (i processori a 8 
bit, come lo Z80 od il 6502, possono 
indirizzare direttamente solo 64 Kbyte 
dovendo ricorrere, per gestire quantità 
maggiori, a procedimenti elaborati e 
lenti). 

La maggior differenza fra i 68000 e i 
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Visibile, in primo piano, l’espansione di memoria da 0,5 Mbyte. 


vecchi 8 bit è comunque nel set di 
istruzioni in linguaggio macchina. 
Senz’altro non è necessario conoscere 
il linguaggio macchina per poter utiliz- 
zare un elaboratore, ma un numero 
sempre maggiore di persone si sta in- 
teressando a questo tipo di linguaggio. 
Del resto, gli stessi programmi BASIC 
vengono tradotti in linguaggio mac- 
china durante l’esecuzione e quindi la 
qualità del linguaggio stesso condizio- 
na di fatto l’efficienza di tutto il siste- 
ma. 

In questo caso abbiamo un set compo- 
sto da sole 56 istruzioni, per altro mo- 
dificabili in molti modi per coprire 
ogni esigenza. Un numero tanto picco- 
lo di istruzioni tanto potenti è facile da 
imparare e da ricordare, e rende i siste- 
mi basati su questo tipo di processori 
da un lato molto efficienti nell’esecu- 
zione dei programmi scritti in linguag- 
gio ad alto livello, e dall’altro supporti 
ideali per la programmazione in lin- 
guaggio macchina o, meglio, in As- 
sembly. 

Sistema operativo e linguaggio 

Sono entrambi contenuti nella ROM da 
32 Kbyte. Il sistema operativo è assolu- 
tamente nuovo e creato appositamen- 
te per il QL, e si chiama appunto 
QDOS. La sua caratteristica più impor- 
tante e, sotto molti punti di vista, ecce- 
zionale, e di essere un sistema monou- 
tente multitasking. L’utilizzatore può 
cioè avere più programmi contempo- 
raneamente in esecuzione e i cui risul- 
tati possono, se necessario, essere vi- 
sualizzati in finestre sullo schermo, in- 
dipendenti l’una dall’altra. Questo è 
possibile grazie al QDOS, che gestisce 
opportunamente il tempo della CPU 
suddividendolo fra i vari programmi in 
esecuzione, che sono in tal modo ese- 
guiti parallelamente. 

Altra caratteristica di rilievo di questo 
sistema operativo è il sistema di 
ingressi/uscite, completamente indi- 
pendente dal tipo di periferiche colle- 
gate. Questo significa, in altre parole, 
che i programmi potranno essere scrit- 
ti senza fare riferimento alla particola- 
re unità esterna con cui dovranno esse- 
re utilizzati. Questa potrà venire speci- 
ficata di volta in volta al momento 
dell’uso o, in alternativa, rilevata nel ti- 
po e nelle modalità di trasmissione 
dallo stesso calcolatore, che ricono- 
scerà automaticamente la particolare 
periferica collegata, organizzando 
l’input/output di conseguenza. 
Vediamo ora il linguaggio. Quello resi- 
dente è il BASIC, in una particolare 
versione potenziata denominata Su- 
perBASIC, che pur ricalcando il BASIC 
dello Spectrum ne risulta nettamente 
superiore per il maggior numero di 
istruzioni, che gli conferiscono caratte- 
ristiche nuove. Il SuperBASIC è infatti 
un linguaggio strutturato, cioè in pos- 
sesso di tutte quelle strutture (IF THEN 
ELSE, REPEAT, UNTIL, ecc.), comuni 
ai linguaggi di più recente concezione 


quali Pascal, ADA, ecc., che consento- 
no la stesura di programmi strutturati 
a blocchi e praticamente privi di istru- 
zioni GO TO, con grande vantaggio 
per la loro comprensione. Altra fonda- 
mentale novità è la sua espandibilità , 
per mezzo di istruzioni DEF PROCE- 
DURE, infatti, è possibile creare proce- 
dure che saranno richiamate da un no- 
me scelto da noi, che funzioneranno 
perciò né più né meno allo stesso mo- 
do delle istruzioni presenti in ROM. È 
stato infine superato un problema pre- 
sente nel BASIC tradizionale, e cioè la 
sua dipendenza, nella velocità di esecu- 
zione, dalla lunghezza del programma. 
Altre istruzioni che rendono più flessi- 
bile e potente la programmazione 
comprendono AUTO, per la numera- 
zione automatica delle linee, BAUD 
per definire da BASIC la velocità di tra- 
smissione seriale WINDOW e CURSOR 
per creare finestre video e posizionare 
al loro interno il cursore, EXEC per ca- 
ricare sequenze di programmi ed ese- 
guirle in parallelo, DATE$ per ottene- 
re data e ora dall’orologio interno, e 
molte altre. Il medesimo SuperBASIC, 
infine, viene utilizzato come linguag- 
gio di comando per il sistema operati- 
vo, rendendo veramente semplice la 
gestione del QDOS. 

Due sono i modi previsti per la grafica 
ad alta dissoluzione: 512 x 256 pixel in 
quattro colori, e 256x256 in otto co- 
lori. Sono presenti inoltre una istruzio- 
ne di scala, SCALE, ed una, BLOCK, 
per riempire con un determinato colo- 
re aree chiuse. 

Il testo viene invece normalmente vi- 
sualizzato in un formato di 85 colonne 
per 25 righe, che viene ridotto, nel ca- 
so si usi la TV, a 40-60 colonne. Il for- 
mato dei caratteri, e quindi il numero 
di colonne visualizzate, è comunque 
variabile da BASIC con l’istruzione 
CSIZE. La sottolineatura dei caratteri 
avviene ora in modo semplice con 
l’istruzione UNDER. 

Periferiche 

La memoria di massa standard del QL 
è costituita dai Microdrive, che rappre- 
sentano un’evoluzione rispetto a quelli 


dello Spectrum. La loro capacità è in- 
fatti di 100 Kbyte, la velocità media di 
accesso 3,5 secondi, mentre quella di 
trasferimento raggiunge i 15 Kbyte al 
secondo. Con le due unità incorporate 
l’utente dispone perciò di 200 Kbyte in 
linea, mentre la configurazione massi- 
ma di 6 Microdrive aggiuntivi porta la 
memoria di massa a 800 Kbyte. È inol- 
tre previsto, in un futuro abbastanza 
prossimo, un’interfaccia per disco rigi- 
do tipo Winchester. 

A questo punto corre l’obbligo di dire 
che, per quanto non abbiano ancora in 
mano i dati relativi ad un usò reale dei 
Microdrive del QL, l’applicazione di 
questo tipo di memoria di massa ad un 
prodotto indirizzato al settore profes- 
sionale ci lascia alquanto dubbiosi. 
L’unico vero argomento a loro favore, 
rispetto ad un sistema convenzionale a 
floppy disk è infatti il prezzo dei drive. 
Contro abbiamo la struttura seriale 
delle cartucce, che significa tempi ef- 
fettivi di accesso che possono arrivare 
facilmente a 7 secondi, cioè più della 
maggior parte dei drive da 5 1/4. Inol- 
tre avendo questi una capacità inferio- 
re di circa 1/3 ed un prezzo più o meno 
doppio rispetto ai floppy da 5 e 1/4, il 
costo per l’immagazzinamento della 
medesima quantità di dati viene ad es- 
sere, con i Microdrive, circa sei volte 
superiore. Ciò non toglie che per un 
utilizzatore che non necessiti di grandi 
masse di dati e dia invece importanza 
all’ingombro del sistema il Microdrive 
possano rappresentare la soluzione 
ideale. Con l’affiancarsi del disco rigi- 
do, inoltre, si renderà disponibile ai 
grandi utenti un’unità adatta ad essere 
utilizzata anche in unione all’espansio- 
ne di memoria, altrimenti difficilmente 
gestibile visto che può contenere 
l’equivalente di cinque cartucce per 
Microdrive. 

Le uscite presenti sul retro della mac- 
china le consentono il collegamento 
con stampanti seriali, nonché l’inseri- 
mento in una rete locale che può esse- 
re composta da QL e Spectrum fino ad 
un massimo di 64, denominata QLAN. 
Per il trasferimento dei dati attraverso 
questa rete la Sinclair dichiara una ve- 
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locità di 100 KBaud che, fatti i conti, 
risulta un po’ superiore a quella previ- 
sta per la Locai Area Network dello 
Spectrum, data per 5 KByte/sec. È 
realmente possibile collegare degli 
Spectrum a questa velocità? 

Le periferiche aggiuntive già previste 
per il futuro comprendono, oltre l’in- 
terfaccia per il disco fisso e l’espansio- 
ne di memoria, un’interfaccia parallela 
(chissà perché non è stata incorporata 
nella macchina) che includerà, pare, 
un generatore sonoro polifonico, un 
modem, un’interfacccia IEEE-488 (si 
tratta dell’interfaccia standard per il 
collegamento di strumentazione), un 
convertitore analogico/digitale. Non è 
invece compresa né prevista un’inter- 
faccia per il collegamento con registra- 
tori a cassette, vista la presenza dei 
due Microdrive e la categoria di utenti 
cui la macchina si rivolge. 

Software 

Ed eccoci finalmente al pezzo forte del 
QL. Il software fornito con la macchi- 
na, tutto di produzione Psion, è infatti 
veramente notevole, e costituisce una 
potente attrattiva al suo acquisto. 
L’acquirente di un QL avrà a disposi- 
zione quattro programmi: QL Quill per 
l’elaborazione di testi, QL Abacus per 
calcoli (tipo tabellone Visicalc), QL Ar- 
chive per l’archiviazione dati (databa- 
se) ed infine QL Easel per realizzare 
qualsiasi tipo di grafici commerciali. 
Estremamente sofisticati, omogenei 
nella concezione e perciò semplici 
nell’uso, con estese facilità di help ri- 
chiamabili in qualsiasi momento, do- 
vrebbero rappresentare quanto di me- 
glio offre oggi il mercato in questo 
campo. 

Vediamone qualche esempio. Il tabel- 
lone di calcolo è strutturato in 256 ri- 
ghe e 64 colonne, per un totale di 
16.000 celle, e lavora con una precisio- 
ne di 16 cifre significative. I riferimenti 
alle singole celle possono essere fatti 
con nomi definiti dall’utilizzatore. Il 
database consente l’uso di campi e re- 
cord di lunghezza variabile. E, dulcis 
in fundo, i 4 package possono scam- 
biarsi i dati l’uno con l’altro, costituen- 
do così un unico sistema integrato. 
Nonostante la grande facilità d’uso e 
l’ampia documentazione, sia sul ma- 
nuale che negli stessi programmi, è 
stato istituito in Gran Bretagna (e spe- 
riamo avvenga lo stesso a suo tempo 
in Italia) il QLGB, con l’intento di risol- 
vere qualsiasi problema dovesse pre- 
sentarsi nell’uso del software come 
della macchina. Sarà cura del QLGB, 
inoltre, tenere i propri soci aggiornati 
inviando loro le nuove versioni dei 
package. 

Le prospettive per l’immediato futuro 
sono altrettanto interessanti, e com- 
prendono un compilatore Pascal, 
un’assembler 68000, software per 
l’emulazione di terminale e persino un 
compilatore C (a quando la compatibi- 



lità con GN1X?). Sono inoltre previste 
le versioni su cartuccia ROM, da inseri- 
re nell’apposito connettore, dei quat- 
tro package applicativi venduti con la 
macchina. 

Conclusioni 

Potente nell’hardware, ma soprattutto 
nel software, come macchine ben più 
costose, siamo certi che questa “mac- 
chinetta” da 400 sterline (poco più di 
un milione) farà molto parlare di sé. 
Con tastiera e programmi italiani co- 
me è nelle intenzioni della Rebit, im- 
portatore ufficiale, non avrà difficoltà 
ad imporsi. Siamo probabilmente di 
fronte ad una svolta nel modo di con- 


Clive Sinclair alla presentazione del 
«suo» nuovo QL. 




Vista di insieme del QL col suo «corredo». Più in alto, un particolare della macchi- 
na che evidenzia la posizione dei Microdrive. 


cepire il calcolatore personale. Potrà 
contrastare il passo a nomi illustri? 
Certo avrebbe il passo più sicuro se 
fosse maggiormente standardizzato. 
Gna macchina con tastiera parzialmen- 
te non standard, sistema operativo non 


standard, linguaggio non standard e 
memoria di massa non standard potrà 
infatti suscitare qualche perplessità. 
Riuscirà il nuovo standard Sinclair ad 
imporsi? Solo il tempo potrà rispon- 
derci. 
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Programmazione 

strutturata 


di Tim Hartnell 
trad. di Marcello Spero 


Tim Hartnell ci introduce alla pro- 
grammazione strutturata sullo 
Spectrum 


M olte volte ho scritto articoli o capi- 
toli di libri con l’intento di miglio- 
rare la capacità di programmare di co- 
loro che li avessero letti. Ma ogni volta 
che compilo un elenco delle “cose da 
fare quando si programma” o cerco di 
spiegare le medesime cose a qualcu- 
no, mi torna in mente la storiella del 
contadino. Costui, avvicinato da un 
giovane che propagandava corsi di 
agronomia per corrispondenza, si sentì 
dire: “Già ora non riesco a mettere in 
pratica tutte le cose che so sull’agricol- 
tura”. 

Così vanno le cose anche per la pro- 
grammazione. So perfettamente di 
non mettere in pratica tutte le cose che 
so, di violare spesso tutte le regole, 
buttandomi nella stesura di program- 
mi anche complessi senza tener conto 
minimamente dei criteri della program- 
mazione strutturata. Il mio suggeri- 
mento è perciò di ricordarsi sempre, 
nella lettura di questo articolo, che io 
stesso non sono convinto che quanto 
ho scritto debba essere accettato come 
la verità assoluta del grande maestro, 
con minaccia di perdizione per chi non 
la segue. Il modo migliore per acco- 
starsi a questo articolo, come a qual- 
siasi altro materiale dello stesso tipo è 
con un’attenta lettura seguita da rifles- 
sione su ciascun suggerimento appre- 
so. Quindi metterete in pratica solo le 
cose che vi saranno sembrate davvero 
utili. 

Per prima cosa... 

L’idea di fondo che vorrei emergesse 
da questo articolo è che occorre avvici- 
narsi alla programmazione strutturata 
con l’idea di “tracciare il contorno” del 
programma. 

L’idea in sé è semplice, ma può esservi 
molto utile nella stesura di programmi 
complessi e involuti. È perfettamente 
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possibile, ovviamente, che voi siate già 
in grado di creare programmi anche 
molto complicati senza aver mai usato 
questo tipo di approccio, ma anche in 
questo caso vi consiglio di valutare 
queste idee, che potranno forse ren- 
dervi più semplice il lavoro. Il concetto 
fondamentale della programmazione 
strutturata sta tutto nell’idea di pro- 
grammazione “discendente”. La paro- 
la stessa vi suggerisce di iniziare defi- 
nendo a grandi linee lo scopo del pro- 
gramma che vi accingete a stendere. 
Quindi scrivete una serie di osservazio- 
ni (ciascuna potrà in seguito diventare 
una subroutine) che coprano ognuna 
delle azioni che volete far compiere al 
computer. Per chiarire meglio 
quest’ultimo concetto vi darò un esem- 
pio concreto. Eccovi i possibili passi 
per scrivere un programma di “Tris”. 
Prima, però, devo avvertirvi che il me- 
todo di programmazione strutturata 
produce listati parecchio più lunghi di 
quanto non lo sarebbero altrimenti. Ad 
ogni modo questo svantaggio è larga- 
mente controbilanciato dalla facilità di 
correzione e modifica dei programmi, 
nonché dalla loro enorme facilità di 
comprensione da parte di altri pro- 
grammatori, caratteristica che proba- 
bilmente non è propria di molti dei vo- 
stri programmi. 

INIZI ALIZZAZIONE DELLA SCAC- 
CHIERA 

MOSSA DEL COMPUTER 

1 CONTROLLA SE LA CASELLA 
CENTRALE È VUOTA; ALTRIMENTI 
PROSEGUI 

2 CONTROLLA SE ESISTE UNA MOS- 
SA VINCENTE PER IL COMPUTER; 
SE C’È FALLA 

3 CONTROLLA SE L’AVVERSARIO 
UMANO PUÒ VINCERE CON LA 
PROSSIMA MOSSA; SE È COSÌ, 
BLOCCALO; 

4 SE FINORA NON È STATA FATTA 
ALCUNA MOSSA, CONTROLLA SE È 
POSSIBILE MUOVERE A CASO; SE 
CIÒ NON È POSSIBILE, DICHIARA 
PARTITA PARI 

STAMPA LA SCACCHIERA 
RICEVI LA MOSSA AVVERSARIA 
CONTROLLA SE L’AVVERSARIO HA 
VINTO; SE SI STOP 
TORNA ALLA MOSSA DEL COMPU- 
TER 

Se analizzate per un attimo questo 
schema, vi accorgerete che delinea 
quali sono i passi che il computer per- 
correrà che decisioni dovrà prendere e 
i loro possibili risultati. 

In questo modo avete già completato il 
primo passo nella stesura del vostro 
programma di “tris”. Vi sarete accorti, 
a questo punto, di come non abbia al- 
cuna importanza che voi non sappiate 
ancora in che modo in pratica questi 
passi saranno compiuti dal vostro 
Spectrum: tutto ciò che è necessario in 
questo momento è che vi rendiate con- 
to che tutti i passi elencati dovranno, 
in qualche modo, essere compiuti. 


Quindi... 

Il passo successivo del procedimento 
consiste nel trasformare il nostro sche- 
ma in una serie di chiamate a subrouti- 
ne. In linguaggi più strutturati che non 
il BASIC dello Spectrum (come per 
esempio il BBC BASIC o il Pascal, che 
è appunto servito da modello ai tecnici 
che hanno scritto il BBC BASIC) è piut- 
tosto facile richiamare un certo nume- 
ro di subroutine daH’interno di un ciclo 
senza fine, di struttura del tipo 
DO/WHILE o REPEAT/UNTIL. Queste 
costruzioni permettono la ripetizione 
di una serie di passi del programma fi- 
no a che una certa condizione non sia 
soddisfatta, o lo stato di un determina- 
to puntatore o flag non sia mutato. 
Con il BASIC dello Spectrum dobbia- 
mo invece accontentarci del disprezza- 
to GO TO. Molte delle critiche al GO 
TO, spesso visto come il massimo in- 
sulto alla vera arte della programma- 
zione, provengono dalle prime ed in 
un certo senso rudimentali versioni del 
BASIC, dove l’unica istruzione che po- 
teva seguire un IF/THEN era GO TO. 
Questa situazione comportava salti 
continui, portando ad un programma 
tutto “spaghettate” ed orrendamente 
difficile da seguire (il BASIC fornito 
con la versione standard del TI 99/4A 
possiede tuttora questa limitazione, 
come dimostrano i programmi incredi- 
bilmente involuti che potete vedere in 
qualsiasi libro per il TI). 

Òggi, d’altra parte, possiamo fare qual- 
siasi cosa, dopo un IF/THEN (compre- 
se stranezze come un LIST). Ma le vec- 
chie abitudini, si sa, sono dure a mori- 
re e la cattiva fama del GO TO conti- 
nuerà ancora per un po’. La cosa co- 
munque non ci interessa, poiché ab- 
biamo intenzione di produrre pro- 
grammi chiari e ben strutturati e il GO 
TO non interferisce in questi scopi. 
Torniamo al secondo stadio del nostro 
procedimento. È possibile trasformare 
il nostro schema in una serie di chia- 
mate a subroutine inserite in un ciclo 
senza fine chiuso da un GO TO, come 
mostrato in figura 1. 

A questo punto, come vedete, abbia- 
mo la struttura portante di un pro- 
gramma di “tris”, anche se non sappia- 
mo ancora come questo programma 
funzionerà in pratica. Possiamo ora 
iniziare la sua stesura vera e propria, 
pezzo per pezzo. 


Questo tipo di approccio possiede altri 
due importanti vantaggi. Se ci trovia- 
mo di fronte qualcosa che non possia- 
mo, a questo stadio, programmare con 
esattezza (ad esempio il criterio con 
cui il computer potrà stabilire chi ha 
vinto), possiamo semplicemente met- 
tere al posto della routine corrispon- 
dente una PRINT “CONTROLLO PER 
IL VINCITORE”, che renderà funzio- 
nante il programma mentre noi conti- 
nuiamo a lavorarci sopra. Infatti, ogni 
volta che dovrebbe effettuare il con- 
trollo, il computer stamperà “CON- 
TROLLO PER IL VINCITORE”. Il se- 
condo vantaggio lo troviamo alla fine 
dello stadio più frustrante, e per molti 
aspetti meno gratificante, della pro- 
grammazione. Sebbene riesca ad arri- 
vare piuttosto in fretta a far funzionare 
il mio programma (anche se il mio pri- 
mo programma di scacchi mi tenne 
occupato per quasi sei mesi), passare 
dalla fase di “programma funzionante” 
a quella di “programma capace di fron- 
teggiare senza problemi qualsi situa- 
zione” può portarvi via lo stesso tempo 
che avete impiegato per arrivare alla 
prima versione del programma. Vedre- 
te, comunque, che costruisce un pro- 
gramma nel modo descritto in questo 
articolo può semplificare in modo con- 
siderevole la fase di correzione. 
Potrebbe capitarvi, ad esempio, che 
nel vostro programma di “tris” il com- 
puter tenda ad ignorare l’angolo in 
basso a destra della scacchiera anche 
quando una mossa in questa posizione 
potrebbe farlo vincere, o potrebbe non 
bloccare la vittoria avversaria. Dal ci- 
clo delle subroutine che abbiamo crea- 
to sappiamo che la mossa del compu- 
ter viene fatta fra le linee 1000 e 1999. 
Questa considerazióne restringe di 
molto il vostro campo di ricerca. Se 
siete stati così abili da costruire ciascu- 
na routine come un sistema di altre su- 
broutine, ognuna costruita secondo lo 
stesso metodo visto per le subroutine 
principali, sarà ancora più semplice 
rintracciare l’errore. 

Sembra difficile 

Esaminiamo adesso questa idea, co- 
struire ciascuna subroutine come un 
insieme di altre subroutine, un po’ più 
in particolare. Ci occuperemo della su- 
broutine che inizia in linea 1000, quel- 
la cioè in cui il computer sceglie quale 


10 REM TRIS 

20 GOSUB 9000:REM INIZIALIZZAZIONE 

30 GOSUB 1000:REM MOSSA DEL COMPUTER 

40 GOSUB 8000:REM CREA LA SCACCHIERA 

50 GOSUB 2000:REM RICEVI LA MOSSA AVVERSA- 

RIA 

60 GOSUB 8000:REM CREA LA SCACCHIERA 

70 SE (1F) NÉ IL COMPUTER NÉ L’AVVERSARIO UMA- 

NO HANNO VINTO, ALLORA (THEN) TORNA (GO 
TO) ALLA LINEA 30 

80 PRINT “BRAVO!” O QUALSIASI ALTRO MESSAG- 

GIO 


Un esempio di programmazione strutturata. 
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mossa fare, essendo questa la più im- 
portante e difficile da scrivere. 

La subroutine potrebbe avere questo 
svolgimento mostrato in figura 2. 
Programmi costruiti usando un ciclo 
illimitato accoppiato a subroutine 
strutturate a “subroutine dentro le su- 
broutine” può, come vi ho già detto, 
rendere i programmi molto più lunghi 
del normale. Sullo Spectrum, comun- 
que, non ci sono grossi problemi di 
memoria (a differenza dello ZX 81 sen- 
za espansione di memoria, dove conta- 
re i Byte era l’attività dominante). La 
maggiore lunghezza dei listati, quindi, 
sarà più che ripagata dalla chiarezza 
guadagnata dai vostri programmi e dal 
minor tempo che impiegherete per 
produrre programmi corretti di cui an- 
dare fieri. 


Infine... 

Infine, permettetemi di suggerirvi 
qualche altro schema, che potrete pro- 
vare a trasformare in programmi com- 
pleti. Questo vi aiuterà a farvi un’idea 
più completa del funzionamento di 
questo metodo. 

Come primo esempio consideriamo il 
famoso programma “Life” di John 
Conway, che simula nascite, vita e 
morte di una colonia di cellule. Lo 
schema potrebbe essere semplicemen- 
te questo: 

INIZIALIZZAZIONE 
DISEGNO DELLA COLONIA 
AGGIORNAMENTO 
RITORNO AL DISEGNO 

Senz’altro penserete che sto prenden- 
dovi in giro, poiché lo schema non 
sembra fornire molti suggerimenti cir- 
ca la stesura del programma. Suppo- 
nendo però di conoscere le regole, e le 
vedremo fra un momento, sarete in 
grado di produrre un programma di 
buon livello partendo da questo sem- 
plice schema. 

Eccovi le regole, che suppongono le 
cellule in una griglia e l’evoluzione di 
ogni cellula legata allo stesso dello ot- 
to cellule che possono circondarla. Se 
la posizione centrale è vuota, e ci sono 
esattamente tre cellule nelle posizioni 
intorno, una nuova cellula verrà dise- 
gnata in questa posizione alla genera- 
zione successiva. Se invece la posizio- 
ne centrale è occupata, e ci sono quat- 
tro cellule nelle posizioni intorno, alla 
generazione successiva la cellula che 
la occupa morirà. La stessa sorte le 
toccherà se tutte le posizioni intorno a 
lei sono vuote. Infine, quando ci sono 
solo due cellule nelle posizioni attorno 
a quella considerata la situazione resta 
immutata. Vediamo ora lo schema di 
un gioco tipo “abbatti il muro”, che 
potrete utilizzare per realizzare un vo- 
stro programma: 

INIZIALIZZAZIONE 

STAMPA RACCHETTA, PALLINA E 


MATTONI 

MUOVI LA RACCHETTA 
MUOVI LA PALLINA (FALLA RIMBAL- 
ZARE SE È NECESSARIO) 

SE LA PALLINA HA URTATO UN 
MATTONE, ELIMINALO ED AGGIOR- 
NA IL PUNTEGGIO 
SE LA PALLINA È AL LIVELLO DEL- 
LA RACCHETTA, CONTROLLA SE 
QUESTA PUÒ COLPIRLA; 

SE È COSÌ VAI A “STAMPA RAC- 
CHETTA, PALLINA E MATTONI”; 
ALTRIMENTI VAI A “RIDUCI IL NUME- 
RO DI PALLE DISPONIBILI” 

SE IL NUMERO DI PALLINE DISPONI- 
BILE È MAGGIORE DI ZERO, 


VAI A “STAMPA RACCHETTA, PALLI- 
NA E MATTONI” 

Vi accorgerete che iniziando in questo 
modo l’intero processo di costruzione 
di un programma diventa di gran lun- 
ga più semplice di quanto non sarebbe 
stato altrimenti. Vi accorgerete anche 
che impiegherete il vostro tempo in 
maniera più produttiva di quanto non 
avreste fatto gettandovi nella stesura 
del programma senza alcuno schema 
preliminare. 

ignorate perciò il giovane venditore, e 
cercate oggi stesso di programmare al 
livello cui siete in grado. 


1000 

REM MOSSA DEL COMPUTER 

1010 

LET MOSSA = 0:REM SE DIVENTA 1 VUOL DIRE 

CHE È STATA TROVATA UNA MOSSA VALIDA 

1020 

GOSUB 1200:REM CONTROLLA SE LA CASELLA 
CENTRALE È VUOTA 

1030 

IF MOSSA = 1 THEN RETURN 

1040 

GOSUB 1400: REM CONTROLLA SE ESISTE UNA 
POSSIBILE MOSSA VINCENTE 

1050 

IF MOSSA = 1 THEN RETURN 

1060 

GOSUB 1600:REM CONTROLLA SE OCCORRE 
BLOCCARE UNA POSSIBILE VITTORIA AVVERSA- 
RIA 

1070 

IF MOSSA = 1 THEN RETURN 

1080 

GOSUB 1800:REM CONTROLLA SE È POSSIBILE 

UNA MOSSA QUALSIASI 

1090 

IF MOSSA = 1 THEN RETURN 

1100 

REM UN RITORNO CON MOSSA = 0 VUOL DIRE 

CHE NON ESISTONO MOSSE POSSIBILI 

1110 

RETURN 


Il contenuto di una subroutine è costituito da tante altre piccole subroutine. 
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ZX Microdrive 



fai crescere 
il tuo sin 


lair- Spectrum 

con le sue eccezionali periferiche ! 




ZX MICRODRIVE a casa vostra subito ! ! 

Amplia le possibilità dello p 

ZX Spectrum in quei settori ^ .. __ __ __ __ __ _ __ __ _ 

come la didattica e le I — ^ "V' 

nir.rnle annlirazinni I r» r» 


piccole applicazioni 1 

gestionali, dove è necessaria i 
una ricerca veloce delle 

Descrizione 

Q.tà 

Prezzo 

unitario 

Prezzo 

Totale 

informazioni. 

Ogni cartuccia può 

COMPUTER ZX SPECTRUM 16 kbyte 


L. 398.000 


contenere. 

85 k byte / 95 k byte i 

COMPUTER ZX SPECTRUM 48 kbyte 


L. 499.000 


1 

ZX MICRODRIVE 


L. 199.500 


CARTRIDGE 

Per ZX Microdrive. 1 

Capacità: 1 

85 kbyte / 95 kbyte 

ZX INTERFACE 1 


L. 199.500 


ZX INTERFACE 2 


L. 95.500 


Confezione da 2 pezzi. 

2 CARTRIDGE 


L. 45.000 

La coppia 



ZX INTERFACE 2 

Permette di utilizzare le 
nuovissime ZX ROM, 
cartucce software e il 
collegamento per 2 
joystick. 


ZX INTERFACE 1 

Indispensabile per il 
collegamento dello 
ZX Microdrive. 

Inoltre permette il 
collegamento fra lo 
ZX Spectrum e una ampia 
gamma di periferiche e di 
altri Sinclair in rete locale. 


COMPUTER 
ZX SPECTRUM 

A colori, collegabile ad un 
televisore a colori o in b/n 
e ad un normale 
registratore a cassetta. 
32x24 caratteri. 

RAM di base: 16 k - 48 k 
256x192 punti. 

8 colori - 2 luminosità. 


■ 

11 “ 
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Le interruzioni, 
teoria e pratica sullo 
Z X Spectrum 


Questo articolo si propone di far cono- 
scere l’uso della tecnica di interruzio- 
ne. Questo potente strumento softwa- 
re, a torto considerato di esclusivo in- 
teresse specialistico, può risultare 
estremamente utile a quanti vogliano 
ottenere “qualcosa in più” dal proprio 
elaboratore; infatti, pur richiedendo 
l’uso del linguaggio macchina per es- 
sere utilizzato, può dare grandi vantag- 
gi anche in unione (e all’interno) di 
programmi BASIC. 

Per queste ragioni l’articolo è stato 
strutturato in modo da essere utilizza- 
to a diversi livelli: nella sua parte gene- 
rale, e per forza di cose a carattere in- 
troduttivo, può interessare chiunque 
sia curioso o voglia capire di cosa si 
tratta; i lettori interessati alle applica- 
zioni di questa tecnica per lo ZX Spec- 
trum sono invitati a proseguire la lettu- 
ra: per poter utilizzare le routine pro- 
poste non è necessaria la conoscenza 
del linguaggio macchina. A quanti in- 
vece interessati alle problematiche del 
l/m dello Z80 sono dedicati alcuni bre- 
vi approfondimenti. 

Vediamo innanzitutto cosa intendiamo 
quando parliamo di “interruzione”. 
Tutti noi conosciamo l’uso e lo scopo 
dei sottoprogrammi, o subroutine che 
dir si voglia: una procedura (insieme di 
istruzioni) il cui uso sia necessario più 
volte nel corso di un programma, vie- 
ne richiamata mediante un’apposita 
istruzione, detta appunto “chiamata 
della subroutine” che compare nei 
punti del programma ove ne è richie- 
sto l’intervento. 

Una volta che questa sia stata eseguita, 
un’istruzione di “ritorno dalla subrouti- 


ne”, posta in coda alla stessa, farà in 
modo che l’esecuzione del programma 
principale riprenda dall’istruzione suc- 
cessiva a quella dichiarata. Questo di- 
scorso vale in generale per tutti i lin- 
guaggi di programmazione, seppure 
con le ovvie differenze pratiche. Dover 
collocare in punti determinati del pro- 
gramma delle istruzioni di chiamata 
implica però che noi vincoliamo il 
“momento” della chiamata stessa ai 
tempi di esecuzione del programma 
principale. In altre parole, se abbiamo 
una chiamata a subroutine in linea 500 
ed un’altra in linea 1500, non ci impor- 
ta sapere “quando”, rispetto ad un 
tempo esterno, avverranno queste due 
chiamate, nè quanto tempo passerà fra 
la prima e la seconda: ci basta sapere 
che avverranno esattamente in quei 
due punti del programma principale. 

E se la subroutine contenesse delle 
istruzioni che richiedono dati ad un 
congegno esterno che li rende disponi- 
bili solo in determinati “momenti”, 
non dipendenti dai tempi di esecuzio- 
ne del nostro elaboratore? 

O se, viceversa, fosse il nostro elabora- 
tore a dover compiere durante la su- 
broutine, operazioni che devono esse- 
re svolte in momenti di tempo ben pre- 
cisi, o ad intervalli regolari? 

Ecco che non sapremmo più dove 
mettere le istruzioni di chiamata. In ca- 
si come questi sarebbe molto utile che 
le chiamate fossero determinate non 
da un’istruzione presente nel program- 
ma principale, ma dal ricevimento da 
parte dell’elaboratore di un segnale 
esterno, che gli venisse inviato a tempi 
prestabiliti. Bene, le interruzioni sono 


esattamente questo: chiamate di una 
subroutine in risposta ad un apposito 
segnale esterno. 

Facciamo ora un altro passo avanti; se 
le chiamate ad una determinata su- 
broutine attuate per mezzo di un’inter- 
ruzione non dipendono da istruzioni 
all’interno del programma principale, 
la medesima subroutine potrà essere 
utilizzata in programmi diversi, che 
non necessiteranno di alcuna modifi- 
ca, se non l’aggiunta della subroutine 
stessa. D’altra parte, se la subroutine, 
che possiamo ora chiamare sottopro- 
gramma interrompente (Interruption 
Handling Routine), non modifica i dati 
in corso di elaborazione da parte del 
programma principale, questo potrà 
proseguire come se non fosse succes- 
so nulla, per poi sfruttarne, guando ne 
avrà la necessità, i prodotti. E evidente 
a questo punto come l’uso delle inter- 
ruzioni sia funzionale con sottopro- 
grammi che lavorano in maniera indi- 
pendente dal programma principale, e 
soprattutto non dipendono, per le loro 
elaborazioni, dall’avvenuta esecuzione 
da parte di questo di determinate fasi. 
Un tipico impiego, a livello di personal 
computer, è infatti nella lettura della 
tastiera da parte del sistema operativo 
della macchina. Questa operazione 
può essere svolta in maniera del tutto 
indipendente, e le informazioni così 
ottenute (cioè il o i tasti eventualmente 
premuti) vengono immgazzinate con- 
venientemente in memoria (nel cosid- 
detto “buffer di tastiera”) per essere re- 
cuperate se e quando il sistema si tro- 
verà nella necessità di ottenere, per 
proseguire le elaborazioni, questa in- 
formazione. 

Un tale procedimento può sembrare 
impreciso, ma se teniamo conto che la 
lettura della tastiera è un’operazione 
rapidissima, e viene ripetuta decine di 
volte ogni secondo, ci rendiamo conto 
che il sistema avrà sempre dati aggior- 
nati. 

Passiamo ora ad esaminare come lo 
ZX Spectrum si serve delle interruzioni 
per il suo funzionamento, e cosa pos- 
siamo fare per servircene a nostro van- 
taggio. 

Innanzitutto diciamo che i progettisti 
dello Spectrum hanno dovuto operare 
una scelta fra i vari “modi di interruzio- 
ne” previsti dal costruttore della CPU, 
lo Z80A, per utilizzare quella che più si 
adattava alle loro necessità. Il micro- 
processore Z80A (come i suoi fratelli 
Z80 e Z80B, che differiscono solo nella 
velocità di funzionamento) possiede 
infatti due diversi tipi di interruzione: 
l’interruzione mascherabile e l’interru- 
zione non mascherabile. 11 primo tipo 
può essere eseguito o ignorato a se- 
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conda che il microprocessore abbia 
eseguito le istruzioni (in linguaggio 
macchina) EI (che abilita le interruzio- 
ni) o DI (disabilita le interruzioni). 11 se- 
condo tipo, invece, non può mai essere 
ignorato. 

Del primo tipo di interruzione esistono 
tre “modi” diversi, in sostanza metodi 
diversi di far conoscere al micropro- 
cessore la posizione in memoria del 
sottoprogramma da chiamare. Il se- 
condo tipo di interruzione ha invece un 
solo modo possibile. Chi fosse interes- 
sato ad una conoscenza più approfon- 
dita dei vari tipi e modi di interruzione 
della famiglia Z80 può trovare qui a 
fianco alcune informazioni; per gli altri 
è sufficiente sapere che nell’uso nor- 
male si fa ricorso all’interruzione ma- 
scherabile, mentre quella non masche- 
rabile, d’altronde poco versatile, viene 
riservata per la gestione di eventi “ca- 
tastrofici”, quali cadute di tensione e 
simili. Lo ZX Spectrum fa uso delle in- 
terruzioni per compiere due operazio- 
ni: lettura della tastiera (con aggiorna- 
mento della variabile di sistema LAST 
K) e aggiornamento dell’orologio (va- 
riabile di sistema FRAMES). Le due 


operazioni vengono svolte nel corso 
della stessa interruzione, e quindi 
nell’ambito di una sola subroutine in- 
terrompente. Per questo è stato scelto 
di far funzionare la CPU nel modo di 
interruzione 1, cioè il più semplice, che 
consente di chiamare una sola subrou- 
tine e non richiede perciò alcun segna- 
le esterno di indirizzamento. L’unico 
segnale esterno necessario è quello di 
richiesta dell’interruzione, che viene 
inviato alla CPU dall’ULA (il grosso in- 
tegrato che gestisce i rapporti con 
l’esterno) al ritmo di 50 volte al secon- 
do. L’ULA ricava questo impulso dalla 
frequenza della rete elettrica. Ora che 


Interruzioni mascherabili 


abbiamo visto qual è l’impiego norma- 
le delle interruzioni nello ZX Spec- 
trum, vediamo cosa è possibile fare 
per ottenere che altre operazioni ven- 
gano portate avanti sotto interruzione. 
Innanzitutto ci poniamo il vincolo di 
non apportare alcuna modifica né ag- 
giunta all’hardware esistente: operando 
solo su software potremo sempre stac- 
care la spina e ripristinare le condizio- 
ni originali. Detto questo passimo ad 
esaminare le modifiche possibili per 
conquistarci uno “spazio” ove inserire 
una nostra subroutine. Rimanendo nel 
modo 1 questo non è possibile, perché 
l’unico posto disponibile è già occupa- 


Tipi e modi di interruzione della famiglia Z80 

La famiglia Z80 possiede due tipi di interruzione: mascherabili e non maschera- 
bili, a seconda che possano o meno essere ignorate dal microprocessore che le ri- 
ceve. 


Sono disabilitate: all’accensione, quando il modo di interruzione viene modifica- 
to con una istruzione IM, dopo ogni interruzione e dopo l’esecuzione dell’istruzio- 
ne DI (Disable Interruptions). 

Perché siano abilitate deve essere eseguita una istruzione EI (Enable Interrup- 
tions). Si articolano in tre modi, selezionabili con istruzioni IM. 
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to dalla subroutine originale, e tra l’al- 
tro corrisponde ad un indirizzo della 
ROM, pertanto di contenuto modifica- 
bile. Il modo 0 in teoria ci consente di 
scegliere fra 8 indirizzi diversi, ma pur- 
troppo nel nostro caso questi corri- 
spondono tutti a locazioni di memoria 
all’interno della ROM, e quindi già oc- 
cupate da routine del sistema. 

Ci resta il modo 2: può essere la nostra 
soluzione, poiché consente di chiama- 
re subroutine situate in una posizione 
qualsiasi in memoria, e quindi anche 
in RAM. C’è però un problema; in que- 
sto modo la CPU si aspetta dall’esterno 
metà dell’indirizzo di memoria in cui 
troverà l’indirizzo a cui trovare la su- 
broutine (è un pò come una caccia al 
tesoro...); l’altra metà (quella superio- 
re) la trova immagazzinata nel registro 
I (vettore d’interruzione). La soluzione 
è comunque a portata di mano: se, in- 
fatti, non forniamo alcun indirizzo 
dall’esterno, verrà assunto come tale il 
valore massimo possibile, cioè FF 
Hex, pari a 255 decimale. Variando 
quindi il valore di I, potremo scegliere 
tra tutte le locazioni di memoria che 
terminano con FF: in una di queste 
porremo il valore dell’indirizzo di ini- 
zio di una subroutine scritta da noi per 
compiere le operazioni che ci interes- 
sano. 

Per la frequenza di interruzione, inve- 
ce, non abbiamo scelta: infatti la linea 
di interruzione è collegata con I’GLA 
che, come abbiamo visto, invia un se- 
gnale ogni 20 msec. 

Infine, una considerazione importante 
per conservare il corretto funziona- 
mento del sistema; se ad ogni richiesta 
di interruzione la CPU eseguirà la no- 
stra subroutine, la tastiera non verrà 
più letta, né l’orologio aggiornato. Per 
includere queste operazioni fra quelle 
eseguite durante l’interruzione, basta 
che la nostra subroutine non termini 
con una istruzione di ritorno al pro- 
gramma principale (RET) ma con un 
salto verso la “vecchia” subroutine in- 
terrompente, posta nella ROM, al ter- 
mine della quale si trova ovviamente 
una RET che provocherà il ritorno al 
programma principale. 

Con questi accorgimenti, e costruendo 
la nostra subroutine in modo che non 
danneggi nulla aH’interno del sistema, 
potremo ottenere che alcune operazio- 
ni di nostra scelta siano portate avanti 
ogni 20 msec. durante tutto il funzio- 
namento della macchina, cioè sia 
mentre è in corso di elaborazione un 
programma che in fase di scrittura e 
correzione (editing) del programma 
stesso. Ovviamente queste operazioni 
dovranno essere di breve durata, dicia- 
mo meno di 5 msec., per non rallenta- 
re apprezzabilmente il funzionamento 
dell’elaboratore. 

Nella seconda parte vedremo una pro- 
posta pratica per utilizzare questo me- 
todo: un orologio con ore, minuti e se- 
condi. 

^ (segue) 


Modo 1 

È il più semplice. Viene selezionato con l’istruzione IMI , seguita da EI per abilita- 
re le interruzioni. In questo modo quando il microprocessore riceve il segnale di 
interruzione sulla linea apposita viene eseguito un salto a sottoprogramma verso 
l’indirizzo di memoria 0038 Hex. Qui dovrà essere presente una subroutine adat- 
ta, regolarmente conclusa da un’istruzione RET che provocherà il ritorno al pro- 
gramma principale. 

Modo 0 

Al ricevimento del segnale di interruzione, il microprocessore risponde con un 
segnale di “interruzione riconosciuta” su di una linea apposita. In risposta a que- 
sto suo “OK” si aspetta il codice di una istruzione lunga un byte sul bus dei dati. 
Normalmente questo sarà uno dei codici delle istruzioni RST n, dove n può esse- 
re una delle otto locazioni di memoria 0,8,10 Hex, 20 Hex, 28 Hex, 30 Hex, 38 Hex. 
RST equivale a CALL nn (è cioè un’istruzione di chiamata di una subroutine) ma è 
lunga un solo byte invece di tre. In particolare RST 38 Hex (codice FF) chiama la 
locazione 38 Hex, come nel modo 1, ed è quanto succede se non viene inviato al- 
cun codice in risposta al segnale. È il modo standard all’accensione, e pertanto 
richiede solo una istruzione EI per funzionare. Può comunque essere selezionata 
in oqni momento con l’istruzione IMO, seguita da EI. 

Modo 2 

È il più potente e sofisticato e consente di chiamare una subroutine a qualsiasi in- 
dirizzo di memoria. 

Per selezionarlo occorre far eseguire la sequenza: 

IM 2 
LD A, n 
LD I, A 
EI 

carica il valore n in I, vettore dell’interruzione 

Al ricevimento del segnale di interruzione il microprocessore, dopo aver inviato 
un segnale di “OK”, leggerà il codice presente sul bus dei dati e lo considererà il 
byte di ordine minore di un indirizzo di memoria il cui byte di ordine maggiore è 
il contenuto di I; prenderà il contenuto di questo indirizzo e chiamerà la subrouti- 
ne presente nella posizione di memoria da questa specifica. 

Non inviando alcun indirizzo sul bus dei dati, il microprocessore vi leggerà, come 
nel caso del modo 1, il valore FF, che combinerà con il contenuto di I. 

Interruzioni 
non mascherabili 

Sono comandate da una linea diversa da quelle mascherabili, e sono sempre abi- 
litate. Il ricevimento di un segnale sulla loro linea provoca sempre e solo un salto 
a subroutine all’indirizzo 0066Hex. 

Sono di uso limitato, in genere in risposta a situazioni di emergenza. 

Come viene ottenuta remissione sonora nello Spectrum 

GN ERRORE PRESENTE NELLA ROM DELLO SPECTRGM 

Sebbene non venga utilizzata dallo Spectrum nella sua forma standard, esiste in 
ROM una routine che si occupa di una eventuale interruzione non mascherabile, 
qualora la linea venga attivata. 11 suo contenuto è: 

0066 RESET pus af 
pus hi 

ld hi, (NMIADD) 
ld a,h 
or 1 

jr nz,NO-RES 
jp (hi) 

0070 NO-RES pop hi 
pop af 
ret 

e il suo significato dovrebbe essere: 

se la variabile di sistema NMIADD (è quella all’indirizzo 23728, cui il manuale 
non dà nè un nome nè uno scopo) è a zero non fare niente; se ha un valore diver- 
so, salta all’indirizzo rappresentato dal suo valore. Purtoppo un errore di pro- 
grammazione della ROM ha fatto sì che l’istruzione 

jr z, NO-RES 

diventasse 

jr nz, NO-RES 

rendendo inutile tutta la routine. Infatti l’effetto è ora: se NMIADD è zero salta 
all’indirizzo corrispondente (cioè zero); se ha valori diversi non fare nulla. In que- 
sto modo l’effetto è analogo a quanto si potrebbe ottenere attivando la linea di 
RESET, oltretutto in maniera più diretta.* Pazienza... 
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Piccola guida 
all'input 
dei programmi 


« programmi pubblicati da SGPERSINC sono stati 
1 accuratamente provati e verificati. In questo mo- 
do speriamo di avere ridotto al minimo la possibilità 
di errori. 

Nel caso comunque un programma dovesse presen- 
tare malfunzionamenti, pubblicheremo le modifiche 
da apportare in uno dei numeri immediatamente suc- 
cessivi della rivista. 

Per utilizzare i programmi pubblicati è sufficiente di- 
gitare i relativi listati sulla tastiera del calcolatore. 
Nel caso dello ZX SPECTRGM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo 
grafico, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRGM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici 
predefiniti (i tasti numerici da 1 a 8 e gli stessi “sbuf- 
fati”) e una serie di caratteri definibili dall’utente 
nell’ambito di un programma (le lettere da A a G). 

In entrambi i casi, per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrasse- 
gnato dalla lettera G lampeggiante) premendo con- 
temporaneamente i tasti CAPS-SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti sono in- 
dicati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Ad esempio 'G4l significa che occorre digitare il ta- 
sto 4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo ta- 
sto numerico premendo contemporaneamente il ta- 
sto CAPS-SHIFT. 

Ad esempio quando si trova la codifica {SG2}, occor- 
re premere il tasto 2 contemporaneamente al tasto 
CAPS-SHIFT, ovviamente con il cursore in modo gra- 
fico. In entrambi i casi precedenti, quando un simbo- 
lo grafico deve essere digitato più volte, i caratteri G 

0 SG della codifica sono preceduti da un numero che 
specifica quante volte va premuto il tasto grafico in- 
dicato. 

Così ad esempio 18G5| significa che il tasto grafico 5 
va digitato 8 volte e analogamente Ì4SG1 ! indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battu- 
ti 4 volte. 

1 caratteri grafici definibili (le lettere da A a G in mo- 
do grafico) hanno una codifica semplificata: la lette- 
ra corrispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, 
una A sottolineata, occorre entrare in modo grafico 
(al solito premendo contemporaneamente i tasti 
CAPS-SHIFT e 9) e quindi digitare semplicemente il 
tasto che contrassegna la lettera A. 


Quando leggete Premete 


Vedrete 


Quando leggete 


Premete 


Vedrete 


{Gl} 

Fn 

{G2 } 

| 2 pi 

{G3 } 

b_ H 

{G4 } 

l« - 

{G5 } 

I 5 II 

{G6 } 

I" FU 

{G7 } 

m 

{ G 8 } 

i- 1 1 

{ SG1 } 

1 CAPS 1 


l SHIFT 1 

{ SG2 } 

Se non siete 
già in modo 

G, entrateci 
schiacciando 
contempora- 

1 CAPS 

1 SHIFT 

{SG3 } 

r caps | 

I SHIFT | 

{ SG4 } 

{ SG5 } 

neamente 
CAPS SHIFT 
e 9 

CAPS 1 

SHIFT 1 


1 CAPS 1 

1 SHIFT 1 

{SG6 } 

CAPS 

SHIFT 

{SG7 } 

CAPS 

SHIFT 

{ SG8 } 

CAPS 1 

SHIFT 1 




■ 

I 

□ 


P 

I 

P 


Se dovete 
uscire dal 
modo G, 
schiacciate 9 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 


Q 


R 


S 


T 


U 



Simbolo grafico 
definito nel 
programma in uso. 


Se dovete 
uscire dal 
modo G, 
schiacciate 9 


*> 
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LOAD 


di Wolfgang Huebl 
trad. e adatt. Ivan Cerè 




terminare con la resa dei nemici, oppu- 
re con la morte del comandante della 
base. 

Ci sono 3 livelli di difficoltà con i quali 
varia il punteggio che si deve ottenere 
affiché il nemico si arrenda. 

Ecco ora una descrizione del program- 
ma: 


L ^obiettivo di questo gioco è di di- 
fendere la vostra base da un attac- 
co missilistico alieno. 

Quando il programma parte si vedrà il 
comandante della base protetto dagli 
scudi sulla parte destra dello schermo. 
Alla base dello stesso appare un can- 
none laser, immobile, che spara diago- 
nalmente, con una angolazione fissa. Il 
vostro compito è distruggere i missili 
che attraversano lo schermo impeden- 
dogli di raggiungere la vostra base. 

Ci sono due tipi diversi di missili: quel- 
li neri e quelli gialli. Dovete premere la 
‘p’ per distruggere i missili neri, la ‘q’ 
per distruggere quelli gialli. 

Potete sparare una sola volta ad ogni 
missile. Guadagnerete 1 punto per 
ogni missile nero e 2 punti per ogni 
missile giallo. Se due missili vengono 
colpiti contemporaneamente, guada- 
gnerete 6 punti. 

Se i missili raggiungono gli scudi ne 
ditruggeranno una parte. Il gioco può 


Linea 

Commento 

10,25,1000 

Contiene la routine per la definizione dei caratteri grafi- 

30-80 

ci. 

Contiene una routine per stampare le istruzioni e per 
scegliere il livello di difficoltà. 

105,106,500 

Contiene la routine per stabilire dove i missili appariran- 

107-170 

no. 

Contiene una routine per il movimento dei missili e per 
permetterci di sparare. 

200-250 

Contiene una routine che distrugge una parte degli 
schermi quando un missile lo colpisce. 

300-350 

Contiene una routine per fare muovere il missile e per 
controllare se c’è qualcosa sul suo cammino. 

500-575 

Contiene una routine che permette a due missili di vola- 
re assieme e permette a voi di sparare due volte. 

700-830 

Contiene una routine per il movimento dei due missili e 
per controllare se c’è qualcosa sul loro cammino. 

700 

Contiene una routine per quando il comandante viene 
colpito. 
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40 PRINT AT 0,4; INK 1;" 

{ 22SG8 } " ' AT 1,4; PAPER 6; 

INK 1;"{SG8} ATTACCO MI SS IL 
ISTICO {SG8 } " ' AT 2,4; INK 1; 
" { 22SG8 } " 

50 PRINT "Difendi la tua base 
(e la tua vita) da un att 
acco mmissili- stico" 

52 PRINT : PRINT "Usa le tue a 
rmi a raggio per distrug 
gere i missili" 

54 PRINT : PRINT "Abbatti i mi 
ssili neri con la 'p', e 
guadagnerai un punto" 

56 PRINT : PRINT "Usa invece 1 
a 'q' per i missili gialli" 
'"Un colpo vale due punti" 
58 PRINT : PRINT "Qualche volt 
a affronterai due missili 
per volta .Colpendoli en 
trambi guadagnerai 6 punti" 

60 PRINT : PRINT "Premi un tas 
to per continuare" 

62 IF INKEY$=" " THEN GO TO 62 

64 CLS : PRINT "Se un missile 
colpisce la tua base una 
parte degli scudi prò- tett 
ivi verrà' disintegrata" 

66 PRINT : PRINT "Se vieni dis 
trutto il gioco finisce 

PAUSE 100 

68 CLS : PRINT : PRINT "Ora se 
egli il livello di d 

if ficolta ' 

(Premi 1,2 o 3) " 

70 LET 1$=INKEY$ 


71 IF 1$<>"1" AND 1$<>"2" 

AND 1$<>"3" THEN 
GO TO 70 

72 LET 1=VAL 1$ 

74 CLS : PRINT "Livello ";1;": 
"'"Devi fare "; 10+20*1;" pu 
nti per fare arrendere il 
nemico" 

76 PRINT : PRINT "Hai un solo 
colpo per missile" 

78 PRINT : PRINT "Premi 'o' pe 
r iniziare" 

80 IF INKEY$<>"o" AND 

INKEY$<>"0" THEN GO TO 8 
0 

101 BORDER 1: PAPER 5: LET f=0: 

CLS 

102 LET z=0 : LET h-12-1: 

PRINT AT 0,0; "Livello ";1: 
DRAW INK 5; 57, 16: PRINT 
AT 20, 6; "CD": PRINT AT 21,5 
; " { 3SG8 } " : PRINT AT h,29; 

INK 2 ; " { 3SG8 } " : PRINT AT h 
+1,29; INK 2 ; " { 2SG8 } " ; : 

PRINT INK 1 ; "A" : PRINT 
AT h+2,29; INK 2;"{2SG8}";: 

PRINT INK 1 ; "B " : PRINT 
AT h+3,29; INK 2;"{3SG8}" 

104 IF ATTR (18,8) =47 THEN 

DRAW INK 5; 150, 150: 

DRAW INK 5 ; - 150 , - 150 

105 IF INT (RND* 5) >3 THEN 

GO TO 500 

106 LET s=l : LET x=INT (RND*z/( 
9-1)): LET y=+INT (RND* 8) : 

LET f =6*INT (RND+0.25) 

107 PRINT AT y,x; INK f;"E" 

130 IF S=1 AND INKEY$="p" 

THEN DRAW 150,150: BEEP 0 
.01,40: DRAW INK 5;-150,-l 
50: LET s=0 

140 IF s= 1 AND INKEY$="q" 

THEN DRAW 150,150: BEEP 0 
.01,30: DRAW INK 7;-150,-l 



50: LET s=0 


144 

LET e = ATTR (y,x) 


145 

IF f =0 AND e=45 

THEN 


GO TO 200 


147 

IF f =6 AND e=47 

THEN 


GO TO 200 


150 

PRINT AT y , x ; " " 

: LET x=x+l 

160 

IF x>28 THEN GO 

TO 300 

170 

GO TO 107 
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200 BORDER 6: PRINT AT 10,17; 

INVERSE 1; FLASH 1; INK 2; 
"COLPITO!": BORDER 1 

205 BEEP 1,-20: LET z=z+l+f/6 

206 IF z>=10+20*l THEN 

BORDER 4: PRINT AT 10,7; 
FLASH 1; "IL NEMICO SI ARRE 
NDE " : PRINT AT 20, 12; "Punte 
ggio finale: ";z: FOR b=0 
TO 10: BEEP . 3,b: NEXT b: 
GO SUB 2000 

217 PRINT AT 10,16;" ": 

PRINT AT 20,22;"" 

220 PRINT AT y,x;" " 

250 GO TO 104 

300 LET a=ATTR (y,x) 

308 IF a = 41 THEN • PRINT AT y,x; 

INK 0 ; " {SG8 } " : GO TO 900 
310 IF a<>40 AND a<>45 

THEN PRINT AT y,x; INK 6; 
" { SG8 } " : BEEP 0.5,-5: 

PRINT AT y,x; INK 5;"{SG8} 
": GO TO 104 

320 PRINT AT y,x; INK f;"E" 

325 LET x=x+l 

330 PRINT AT y ,x- 1 ; " " 

340 IF x=32 THEN GO TO 104 
350 GO TO 300 

500 LET f =0 : LET e0 = l: LET e2 = l 
: LET S=2 : LET x = INT ( RND * 5 
) : LET x2 = INT ( RND * 5 ) : 

LET y=8+INT (RND* 8) : LET y 
2=8+INT (RND* 8) 

505 IF x=x2 AND y=y2 THEN 
GO TO 500 

510 IF eOOO THEN PRINT AT y 
,x ; "E" 

520 IF e2<>0 THEN PRINT AT y 
2 ,x2 ; "E" 

530 IF s>0 AND INKEY$="p" 

THEN DRAW 150,150: BEEP 0 
.01,40: DRAW INK 5 ; - 150 , - 1 
50: LET s=s- 1 

540 IF ATTR (y,x)=45 THEN 
LET e0=0 

550 IF ATTR (y2,x2)=45 THEN 
LET e2=0 

555 PRINT AT y,x;" " : PRINT 
AT y2,x2;" " 

560 LET x=x+l: LET x2=x2+l 
570 IF e0=0 AND e2=0 THEN 
LET z=z+5 : GO TO 200 
575 IF x>28 OR x2>28 THEN 
GO TO 700 
580 GO TO 510 


700 IF (e0=l AND ATTR (y,x)=41) 
OR (e2=l AND ATTR (y2,x2)= 
41) THEN GO TO 900 
720 IF e0=l AND ATTR (y,x)<>4 
0 AND ATTR (y,x)<>45 
THEN PRINT AT y,x; INK 6; 
" { SG8 } " : BEEP 0 . 5 , - 5 : 

PRINT AT y,x;" ": LET e0=0 

740 IF e2=l AND ATTR (y2,x2) 

0 40 AND ATTR (y2,x2) 

045 THEN PRINT AT y2,x2 
; INK 6 ; " {SG8 } " : BEEP 0.5,- 
5: PRINT AT y 2 , x 2 ; " ": 

LET e 2=0 

743 IF eOOO THEN PRINT AT y 
,x ; "E" 

746 IF e2<>0 THEN PRINT AT y 
2 ,x2 ; "E" 

748 LET x=x+l : LET x2=x2+l 
780 IF eOOO THEN PRINT AT y 
, x - 1 ; " " 

790 IF e2<>0 THEN PRINT AT y 
2 ,x2- 1 ; " " 

800 IF x=32 THEN LET e0=0 
810 IF x2=32 THEN LET e2=0 
820 IF e0=0 AND e2=0 THEN 
GO TO 104 
830 GO TO 700 

900 BEEP 1,-40: PAPER 6: CLS : 
PAUSE 50: PAPER 2: CLS : 
PRINT AT 10,10; FLASH 1;"S 
EI MORTO": PRINT AT 21,20;" 
PUNTEGGIO: " ; z : FOR b=0 
TO -40 STEP -2: BEEP 0.2,b 
: NEXT b: GO SUB 2000 
1000 DATA 0,6,6,2,14,150,230,254 
,230,230,230,230,230,230,23 
0,238,0,1,3,7,14,28,56,255, 
224,192,128,0,0,0,0,0,0,192 
,254,255,254,192,0,0 
2000 CLS : PRINT AT 10, 2 ; "Un ' alt 
ra partita? (s/n)": PAUSE 0 

2207 LET a$=INKEY$ 

2208 IF a$=" " THEN GO TO 2207 

2209 IF a$<>"s" AND a$<>"n" 

THEN GO TO 2207 

2210 IF a$="s" OR a$="S" THEN 

CLS : GO TO 68 

2211 IF a$<>"s" OR a$<>"S" 

THEN CLS : PRINT AT 10,12 
; BRIGHT 1 ; " * * *SALVE* * * " : 
PAUSE 100: NEW 

2212 RETURN 
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L O A 



\Y>V 


Q uesto programma consente una 
corsa tra 5 cavalli su una distanza 
di 5 (lunghezze) Furlongs. 

All’inizio del programma viene chiesto 
di scegliere un cavallo o più tra i cin- 
que presenti alla corsa. I cavalli sono 


presentati con il loro nome, il loro co- 
lore e il loro numero; per sceglierli ba- 
sta scrivere il proprio nome, mentre per 
passare ad un cavallo successivo biso- 
gna premere la ‘x’. 

Quando un cavallo vince si è informati 


A 


se qualcuno ha scommesso su di lui, e 
si invita lo scommettitore di quel ca- 
vallo a ritirare la vincita. Si è anche in- 
formati se nessuno ha puntato il caval- 
lo vincente. 

Se si desidera cambiare i nomi ai ca- 
valli si può, molto semplicemente, 
cambiare i nomi alle linee 610-650 in- 
serendo i nuovi nomi che sceglierete 
per i propri purosangue elettronici. 



A 


Ippodromo 

versione per ZX Spectrum 16K/48K 


2 REM CORSA CAVALLI 

7 REM GRAPHIC H PER I CAVALLI 
,GRAPHIC F PER LE SIEPI 

8 CLS : BORDER 4: PAPER 4: 

INK 0 

10 GO SUB 467 
20 GO TO 590 

30 BRIGHT 1: CLS : PAPER 4: 

BORDER 4: INK 0 

31 DRAW 255,0: DRAW 0,175: 

DRAW -255,0: DRAW 0,-175 
33 REM ***ISTRUZIONI*** 


35 PRINT AT 0,5; FLASH 1; 

INVERSE 1 ; "CORSA DEI CAVAL 
LI" 

37 FLASH 0 

38 PRINT AT 2, 2; "PREMI S P 
ER PARTIRE" 

40 PRINT AT 4,1;" FAI LE TUE S 
COMMESSE ": PRINT AT 6,1;" 
DEVI SCEGLIERE UN CAVALLO 
": PRINT AT 8,1; "SE NON L'H 
AI ANCORA FATTO ": PRINT 
AT 10,1;" PREMI C PER VEDER 
E I CAVALLI" 

50 LET r=0 : LET a=0: LET b=0: 

LET c=0 : LET d=0: LET e=0 

52 INPUT m$ 

53 IF m$="c" OR m$="C" THEN 

GO TO 583 
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57 

REM ***DI SEGNO*** 

235 

59 

CLS 




60 

PRINT 

AT 

5 , 0 ; " { 32G3 } " 

237 

65 

PRINT 

AT 

6, 0; "1";AT 6 , 10 ; "F 



" ; AT 

6,20 

; "F" ; AT 6,29;"F" 

240 

70 

PRINT 

AT 

7,10; "F" ; AT 7,20;" 



pii 



242 

75 

PRINT 

AT 

8 , 0 ; " 2 " ; AT 8,10;"F 

250 


" ; AT : 

8,20 

; "F" ; AT 8 , 2 9 ; " I " 


80 

PRINT 

AT 

9,10; "F" ; AT 9,20;" 

255 


pn 



265 

90 

PRINT 

AT 

10 , 0 ; " 3" ; AT 10,10; 

270 


"F" ; AT 10 

, 20 ; "F" ; AT 10,29;" 



N" 



275 

95 

PRINT 

AT 

11,10; "F" ; AT 11,20 

280 


• Il p II 



285 

100 

prInt 

AT 

12,0; "4"; AT 12,10; 



"F" ; AT 12 

, 20 ; "F" ; AT 12,29;" 

290 


I" 



295 

105 

PRINT 

AT 

13,10; "F" ; AT 13,20 

300 


• Il p II 




110 

prInt 

AT 

1 4 , 0 ; " 5 " ; AT 14,10; 

310 


"F" ;AT 14 

, 20 ; "F" ; AT 14,29;" 

315 


S" 



320 

115 

PRINT 

AT 

15,10;"F";AT 15,20 



. « p ii 



325 

120 

PRINT 

AT 

16 , 10 ; "F" ; AT 16,20 

340 


; "F" ; AT 16 , 29 ; "H" 

346 

125 

PRINT 

AT 

17 , 0 ; " { 31G3 } " 


130 

PRINT 

AT 

2,4; "L= LUNGHEZZE" 

349 

135 

PRINT 

AT 

4,1; "L- " 

350 

140 

PRINT 

AT 

4, 5; "5" 


145 

PRINT 

AT 

4 , 1 0 ; " 4 " 


150 

PRINT 

AT 

4 , 1 5 ; " 3 " 


155 

PRINT 

AT 

4, 20; "2" 


160 

PRINT 

AT 

4,25; "1" 

355 

172 

REM ***GIOCO*** 

360 

180 

LET r 

= INT 

1 (RND*6) +0 


185 

PLOT 

10,45: DRAW 0,90 



PLOT 230,45: DRAW 0,90 
IF r=l THEN LET a=a+l: 

IF r =1 THEN GO TO 250 
PRINT AT 6,10; "F" ; AT 6,20;" 

pii 

IF r=2 THEN LET b=b+l: 

IF r=2 THEN GO TO 270 
PRINT AT 8,10; "F" ; AT 8,20;" 

pii 


IF r=3 THEN LET c=c+l: 

IF r=3 THEN GO TO 285 
PRINT AT 10, 10;"F";AT 10,20 


. n p ii 

IF — r=4 THEN LET d=d+l: 

IF r=4 THEN GO TO 300 
PRINT AT 12,10; "F" ; AT 12,20 

. ii p ii 

PrTnt AT 14,0; "5"; AT 14,10; 
"F" ; AT 14,20; "F" 

IF r=5 THEN LET e=e+l: 

IF r=5 THEN GO TO 320 
REM * * * MOVI MENTO* * * 

BEEP 0.03,10: PRINT AT 6, a; 
"H" ; AT 6,a-l; " " 

IF a=29 THEN GO TO 348 
GO TO 60 

BEEP 0.03,14: PRINT AT 8,b; 
"H" ; AT 8 , b- 1 ; " " 

IF b=29 THEN GO TO 366 
GO TO 60 

BEEP 0.03,16: PRINT AT 10, C 
; "H " ; AT 10, c- 1; " " 

IF c=29 THEN GO TO 386 
GO TO 60 

BEEP 0.03,20: PRINT AT 12, d 
; "H " ; AT 1 2 , d - 1 ; " " 

IF d=29 THEN GO TO 406 
GO TO 60 

BEEP 0.03,22: PRINT AT 14, e 
; "H" ; AT 1 4 , e - 1 ; " " 

IF e=29 THEN GO TO 426 
GO TO 60 

REM * * * ROUTINE VINCITORE*** 


PAUSE 100: CLS 
IF v$="" OR v$="X" OR v$="x 
" TriEN PRINT AT 10,0;" IL 
NUMERO 1 HA VINTO, MA 
NESSUNO HA PUNTATO SU DI L 
UI": GO TO 460 
PAUSE 100: CLS 
PRINT AT 10,0;" IL VINCITOR 
E E' IL NUMERO 1. "' V$ ; " 

PUÒ' RITIRARE LA VINCITA" 
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365 PAUSE 100: GO TO 460 

366 PAUSE 100: CLS 

370 IF w$=" H OR w$="X" OR w$="X 
" THEN PRINT AT 10,0;" IL 
NUMERO 2 HA VINTO , MA NES- 
SUNO HA PUNTATO SU DI LUI 
": GO TO 460 

375 PAUSE 100: CLS 

380 PRINT AT 10,0;" IL VINCITOR 
E E' IL NUMERO 2 M, w$;" PUÒ 
' RITIRARE LA SUA VINCITA" 

385 PAUSE 100: GO TO 460 

386 PAUSE 100: CLS 

390 IF x$="" OR x$="x" OR x$="X 
" THEN PRINT AT 10,0;" IL 
NUMERO 3 HA VINTO , MA NES- 
SUNO HA PUNTATO SU DI LUI" 
: GO TO 460 

395 PAUSE 100: CLS 

400 PRINT AT 10,0;" IL VINCITOR 
E E' IL NUMERO 3"'x$;" PUÒ' 
RITIRARE LA SUA VINCITA" 

405 PAUSE 100: GO TO 460 

406 PAUSE 100: CLS 

410 IF y$=" " OR y$="x" OR y$="X 
" THEN PRINT AT 10,0;" IL 
VINCITORE E' IL 4 MA NES- 
SUNO HA PUNTATO SU DI LUI" 
: GO TO 460 

420 PRINT AT 10,0;" IL VINCITOR 
E E' IL 4 "' y$ ; " PUÒ' RITIR 
ARE LA SUA VINCITA" 

425 PAUSE 100: GO TO 460 

426 PAUSE 100: CLS 

440 IF z$="" OR z$="x" OR z$="X 
" THEN PRINT AT 10,0;" IL 
VINCITORE E' IL 5 MA NES- 
SUNO HA SCOMMESSO SU DI LU 
I " 

450 PRINT AT 10,0;" IL VINCITOR 
E E' IL 5" ' z$ ; "PUÒ 1 RITIRAR 
E LA SUA VINCITA" 

460 PRINT AT 14,0;" VUOI U 

N' ALTRA CORSA ?": INPUT g$ 


465 IF g$="S" OR g$="s" THEN 

CLS : GO TO 35 

466 NEW 

467 REM 

468 REM * * *CARATTERI GRAFICI*** 

469 REM 

480 FOR j=0 TO 7 


490 READ q 

500 POKE USR "h"+j,q 

510 NEXT j 

520 DATA BIN 00001100, BIN 000 
11000, BIN 01111011, BIN 11 
111111, BIN 10111001, BIN 1 
0011100, BIN 00100100, 

BIN 000110110 

530 FOR j = 0 TO 7 

540 READ q 

550 POKE USR "f"+j,q 

560 NEXT j 

570 DATA BIN 00011000, BIN 001 
11100, BIN 00111100, BIN 00 
011000, BIN 00111100, BIN 0 
0111100, BIN 00011000, 

BIN 00111100 

580 RETURN 

581 REM 

582 REM ***SCELTA CAVALLI*** 

583 REM 

590 CLS : PLOT 0,150: DRAW 250, 


0 

600 PRINT AT 2,0;" NO NOME 
COLORE" 

610 PRINT AT 4,0;" 1 SUPERMA 
N GRIGIO" 

620 PRINT AT 6,0;" 2 FINE TR 
IM NERO" 

630 PRINT AT 8,0;" 3 GOLDENT 
AILS MARRONE" 

640 PRINT AT 10,0;" 4 BREAKE 
R BE GREY/MARRONE" 

650 PRINT AT 12,0;" 5 STONEY 
BROAK MARRONE" 

670 PRINT 


680 PRINT "PUOI SCEGLIERE QUALS 
IASI CAVALLOSCRIVI IL TUO N 
OME PER PRIMO PER SCEGLI 
ERE IL CAVALLO 1, PER S 

ECONDO PER IL CAVALLO 2 
E COSI’ VIA. 

SE NON VUOI SCEGLIERE 
IL CAVALLOPREMI X OGNI VOLT 
A" 

690 INPUT v$,w$,x$,y$,z$ 

695 PRINT 

700 PRINT "VUOI FARLI PARTIRE ? 

ii 


750 INPUT G$ 

800 IF g$="s" OR g$="S" OR g$=" 
si" OR g$="SI " THEN 
GO TO 30 
810 NEW 
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un nuovo schermo, questa volta più 
difficile per il maggior numero di mat- 
toni già presenti all’inizio del gioco. 
Segue una lista delle linee di program- 
ma con delle possibili variazioni sul te- 


ma: 


di C. Elliston 

trad. e adatt. Ivan Cerè 

un gioco semplice ma estrema- 
ci mente difficile da giocare. Si con- 
trolla il flusso di mattoni nell’area di 
gioco usando i quattro tasti cursori. Il 
movimento dell’omino può essere fer- 
mato solamente andando contro un 
ostacolo o cambiando direzione. 

In pratica dovrete cercare di muovere 
Bill evitando che resti intrappolato. I 
punti equivalgono alla percentuale di 
schermo coperta dai mattoni. Una vol- 
ta raggiunto un punteggio di 80 ci sarà 


Linea 

Commento 

11-14 

Definisce i caratteri grafici 

32-36 

Stampa i muri del bordo 

38 

Stampa il punteggio 

40-50 

Stampa il numero di mattoni già presenti all’inizio. 

100-5000 

Contiene il programma principale di movimento 

455 

Controlla che l’omino non sia intrappolato 

5000-6000 

Calcola il punteggio 

5025 

Converte il numero di mattoni in percentuale di scher- 
mo coperta 

5053 

Questa linea può essere cambiata con un altro numero 
per cambiare schermo al punteggio voluto 

6000-7000 

Contengono le istruzioni del gioco 



Bill il muratore 

versione per ZX Spectrum 16K/48K 

11 FOR n=0 TO 7: READ z: 

POKE USR "a"+n f z: NEXT n 

12 DATA 0,119,119,119,0,238,23 
8,238 

13 FOR n=0 TO 7: READ z: 

POKE USR "b"+n , z : NEXT n 

14 DATA 24,24,60,90,153,36,36, 


15 GO SUB 6000 

16 LET hi = 0 : LET fr=0 

17 LET h=20 

18 LET score=0 

20 LET x=10 : LET y=15 
30 LET a$="A" 

32 PRINT BRIGHT 1; PAPER 7; 

INK 2; AT 0,0;" AAAAAAAAAAAA 
AAAAAAAAAA AAAAAAAA A A " 


102 


33 FOR n=l TO 20 
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34 PRINT BRIGHT 1; PAPER 7; 

INK 2 ; AT n,0;"A";AT n,31;" 


A" 

35 NEXT n 

36 PRINT BRIGHT 1; PAPER 7; 

INK 2; AT 21,0; "AAAAAAAAAAA 
AAAAAAA A AA A AA AAA A A A AA " 

38 PRINT #1; PAPER 1; INK 7; 

AT 0, 1; "PUNTEGGICI" ;AT 0,19 
; " RECORD =" 

40 FOR b=l TO h 

45 LET c=INT (RND*20)+1 

46 IF c=10 THEN GO TO 45 

47 LET d=INT (RND*30)+1 

48 IF ATTR (c,d)>100 THEN 

GO TO 45 

49 BEEP . 01 ,d 

50 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT c,d;a$: NEXT b 


55 FOR n=-20 TO 20: BEEP .01, 
ABS n+15 : NEXT n 
60 PRINT AT x ,y ; "B" 

80 PAUSE 0 

100 IF INKEY$=" 5" THEN GO TO 1 

000 

200 IF INKEY$=" 6" THEN GO TO 2 

000 

300 IF INKEY$="7" THEN GO TO 3 

000 

400 IF INKEY$="8" THEN GO TO 4 
000 

450 PRINT AT x,y;"B" 

455 IF ATTR (x+l,y)>32 AND 

ATTR (x- 1 ,y ) >32 AND ATTR (x 
,y+l) >32 AND ATTR (x,y-l) >3 
2 THEN GO TO 5000 

500 GO TO 100 

1000 REM +++++SINISTRA++++++++ 


1010 IF ATTR (x,y-l) >32 THEN 
GO TO 100 

1020 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT x,y;"A" 

1025 PRINT #1; PAPER 1; INK 7; 

AT 0,11; INT ( ( score* 100 ) / ( 5 
99-h) ) +fr 
1030 LET y=y- 1 
1035 IF y<=0 THEN LET y=0 
1040 PRINT AT x,y;"B" 

1050 BEEP .01,21-x 
1055 LET score=score+l 
1060 IF INKEY$="6" THEN GO TO 2 
000 

1070 IF INKEY$ = "7'' THEN GO TO 3 
000 

1090 GO TO 1000 
2000 REM ++++++++GIU ' ++++++++ 
2010 IF ATTR (x+l,y)>32 THEN 
GO TO 100 

2020 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT x,y;"A" 

2025 PRINT #1; PAPER 1; INK 7; 

AT 0,11; INT ( (score*100)/(5 
99-h) ) +fr 
2030 LET x=x+l 

2035 IF x>=21 THEN LET x=21 
2040 PRINT AT x,y;"B" 

2050 BEEP .01,21-x 
2055 LET score=score+l 
2060 IF INKEY$="5" THEN GO TO 1 
000 

2080 IF INKEY$="8" THEN GO TO 4 
000 

2090 GO TO 2000 

3000 REM ++++++++SU++++++++ 

3010 IF ATTR (x- 1 , y ) >32 THEN 
GO TO 100 

3020 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT x,y;"A" 

3025 PRINT #1; PAPER 1; INK 7; 

AT 0,11; INT ( (score*100)/ (5 
99-h) ) +fr 
3030 LET x=x-l 
3035 IF x<=0 THEN LET x=0 
3040 PRINT AT x,y;"B" 

3050 BEEP .01,21-x 
3055 LET score=score+l 
3060 IF INKEY$=" 5" THEN GO TO 1 
000 

3080 IF INKEY$="8" THEN GO TO 4 
000 

3090 GO TO 3000 

4000 REM ++++++++DESTRA++++++++ 
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4010 IF ATTR (x,y+l)>32 THEN 
GO TO 100 

4020 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT x,y;"A" 

4025 PRINT #1; PAPER 1; INK 7; 

AT 0,11; INT ( (score*100) / (5 
99-h) ) +fr 
4030 LET y=y+l 

4035 IF y>=31 THEN LET y=31 
4040 PRINT AT x,y; "B" 

4050 BEEP .01,21-x 
4055 LET score=score+l 
4070 IF INKEY$=" 6" THEN GO TO 2 
000 

4080 IF INKEY$ = " 7 " THEN GO TO 3 
000 

4090 GO TO 4000 
5000 REM ++++++PUNTEGGIO+++++ 
5025 LET pc = INT ( (score*100) / ( 59 
9-h)) 

5030 LET fr=f r+pc 

5035 IF fr >hi THEN LET hi=fr 

5050 PRINT #1; PAPER 1; INK 7; 

AT 0,1; "PUNTEGGIO 3 " ; INT pc ; 
" " ; AT 0, 19;"RECORD=";hi;" 

II 

5053 IF pc>=80 THEN GO TO 5060 

5054 LET fr=0 : LET pc=0: LET h=2 
0 

5055 PRINT PAPER 6; INK 0; 

FLASH 1 ; AT 2,1;" PREMI UN 
TASTO PER GIOCARE. " 

5059 GO TO 5069 

5060 LET pc=0 : LET h=h+10: LET f 
r = 0 

5063 PRINT FLASH 1; PAPER 6; 

INK 0 ; AT 2,3;" PREMI 

UN TASTO " : PRINT 

FLASH 1; PAPER 6; INK 0; 

AT 3,3;" PER UN NUOVO ROUN 
D " 

5069 PAUSE 0 

5070 FOR n= 1 TO 20 

5080 PRINT PAPER 4;AT n,l;" 

II 

: BEEP . 01,n 
5090 NEXT n 

5093 PRINT #1; PAPER 1; INK 7; 

AT 0 , 11 ; fr ; " " 

5095 GO TO 18 

6000 REM +++ISTRUZ IONI+++ 

6010 BORDER 6: PAPER 4: CLS 

6015 DRAW 255,0: DRAW 0,175: 

DRAW -255,0: DRAW 0,-175 


6020 FOR n=l TO 9 

6030 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT n , 1 ; " AAAAAAAAA 
AA AAA A A AA AA AA AA A A AAA A " 

6040 NEXT n 

6050 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT 10,1; "A 

A" 

6060 FOR n=ll TO 20 

6070 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT n , 1 ;" AAAAAAAAA 
AAAAAA AAAAAAAAAAA AAAA " 

6080 NEXT n 
6090 LET a$=" 

BILL IL MURATORE 
AIUTA BILL AD AMMUCCH 
IARE I MATTONI MA ATTENZION 
E A NON ESSERE INTRAPPOLATO 

BAA 

AAAAA AAAAAAAAAAAAAAAAAAAAA " 

6095 FOR n=0 TO 150 

6100 LET a$=a$ ( 2 TO )+a$(l) 

6110 BEEP .05, CODE a$(28)/4 
6120 PRINT PAPER 7; INK 2; 

BRIGHT 1 ; AT 10,2;a$(l TO 2 

8 ) 

6130 NEXT n 

6134 PRINT BRIGHT 1; PAPER 1; 

INK 7 ; AT 10, 2; "PREMI UN TA 
STO PER CONTINUARE" 

6135 PAUSE 0 
6140 PAPER 4: CLS 

6150 PRINT PAPER 4; INK 0;AT 2, 
2; "USA I CURSORI PER MANOVR 
ARE BILL PER LA MATTONA 

IA." 

6160 PRINT PAPER 4; INK 0;AT 6, 
2; "ALLA FINE DI OGNI PARTIT 
A TI SARA' DATA LA PERCE 
NTUALE APPROSSIMATIVA 

DEL CORTILE COPERTO D 

AI MATTONI." 

6170 PRINT PAPER 4; INK 0; 

BRIGHT 1 ; AT 15, 2; "PREMI UN 

TASTO PER PARTIRE." 

6175 DRAW 255,0: DRAW 0,175: 

DRAW -255,0: DRAW 0,-175 
6180 PAUSE 0 

6190 FOR n=0 TO 40 STEP 5 

6200 BEEP . 03 ,n 

6210 NEXT n 

6220 CLS 

7000 RETURN 
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di Andrew Cook 
trad. e adatt. Ivan Cerè 


rete un miglior punteggio con la frec- 
cia fermata nel centro della pedana. 
L’unica abilità richiesta è una buona 
prontezza di riflessi. 

Ecco ora una descrizione del program- 
ma: 


A» un programma di uso molto sem- 
Cé plice in quanto non ci sono, come 
succede in molti videogames, 5 o 6 ta- 
sti da controllare contemporaneamen- 
te. L’unica preoccupazione che avrete 
è fermare al punto giusto una freccia 
che scorre sul video. 

Quando il programma parte, appare 
una pedana di bowling. 

Cina freccia si muove sullo sfondo del 
video con una velocità che varia con il 
livello di difficoltà prescelto. Per fer- 
mare la freccia basta premere la “Z” e 
dal punto in cui la freccia è fermata 
parte una boccia che farà cadere un 
certo numero di birilli. Ovviamente fa- 


13 IF d$="3" THEN LET beep= . 0 
025 

14 CLS : PLOT 88,0: DRAW 18,11 
2 

15 PLOT 176,0: DRAW -16,112 

16 PLOT 104,112: DRAW 0,50 
20 PLOT 160,112: DRAW 0,50: 

DRAW -56,0 

29 LET total=0: LET count=l 

30 LET flag=0: LET score=0: 

LET flaga=0: LET flagb=0: 
LET f lagc=0 : LET flagd=0 

31 LET a=0 : LET chr=920: LET a 
im=2000 : LET path=3000: 

LET hit=4000: LET counter= 



Bowling 

versione per ZX Spectrum 16K/48K 


1 REM +++++BOWLING+++++ 

3 BORDER 5: PAPER 7: INK 2: 
LET intro=6000 


Linee Commento 

7-13 Seleziona il livello di difficoltà, cioè la velocità di scorri- 

mento della freccia che è determinata dalla lunghezza 
dei BEEP nella linea 200. 

14-70 Stampa la pedana. 

540-600 Stampa i birilli alla fine della pedana. 

620-800 Contiene la subroutine di disegno della boccia. Questa 

è ottenuta con il disegno di successivi cerchi il cui cen- 
tro, a, è determinato dal punto di arresto della freccia. 

920-1020 Definisce i caratteri grafici. 

2000-2050 Contiene il loop usato per il movimento della freccia. 

4000-4055 Queste linee determinano quali e quanti birilli cadono. 

5040-5120 Contiene le routine di ‘punteggio’ e ‘record’. 

5999-7 115 Contiene l’introduzione al programma e le istruzioni del 
gioco. 


4 GO SUB intro 

5 CLEAR : RESTORE 

6 LET hi=0 

7 PRINT AT 10 , 3 ; "Scegli livel 
lo di dif ficolta ;AT 12,5; 
"1 Facile";AT 13,5;"2 Medio 
" ; AT 14,5;"3 Difficile" 

10 LET d$=INKEY$ : IF CODE d$<4 
9 OR CODE d$>51 THEN 
GO TO 7 


11 

IF 

25 

d$="l" 

THEN 

LET 

beep= . 0 

12 

IF 

125 

d$="2" 

i 

THEN 

LET 

beep= . 0 

e 


35 

5000 

PRINT 

AT 

2,14; INK 3 ; "Punti 


" ; AT 

3,16 

; score 

37 

PRINT 

AT 

5,14; INK 3 ; "Total 


e" ; AT 

6,16; total 

38 

PRINT 

AT 

2,0; INK 3;"Frazio 

40 

ne" 

PRINT 

AT 

3,3; INK 3 ; count 

50 

PRINT 

AT 

2,24; INK 3; "Recor 

60 

d " 
PRINT 

AT 

3,26; INK 3 ; hi 


500 RESTORE 
520 GO SUB chr 
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540 FOR b=14 TO 18 
560 PRINT INK . 0 ; AT 8,b;"A": 
NEXT b 

580 FOR b=15 TO 17: PRINT 

INK 0 ; AT 9,b;"A": NEXT b 
600 PRINT INK 0;AT 10, 16; "A" 
610 IF f lag=2 THEN GO TO count 
er 


615 

620 

640 

660 

680 

700 

720 

740 

760 

780 

800 

850 


GO SUB 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
CIRCLE 
GO SUB 


aim 
INK 1 
OVER 
INK 1 
OVER 
INK 1 
OVER 
INK 1 
OVER 
INK 1 
OVER 
hit 


; a , 20 , 15 
1 ; a , 20 , 15 
; a , 40 , 12 
l;a , 40 , 12 
; a , 60 , 9 
1 ; a , 60 , 9 
; a , 80 , 6 
1 ; a , 80 , 6 
; a / 100 , 3 
l;a,100, 3 


855 IF score=9 AND flag=l 

THEN PRINT FLASH 1;AT 3, 
16; "9": BEEP .2,5: BEEP 1,3 


: GO TO counter 


857 IF a=131 AND flag=2 THEN 
BEEP .5,5: GO TO counter 
860 PRINT AT 3,16; INK 3;score 
870 PRINT AT 6,16; INK 3; total 
880 PAUSE 100 

910 IF a=131 THEN GO TO 30 
915 GO TO 610 

918 STOP 

919 REM ***** c hr***** 

920 FOR s=0 TO 7: READ x: 

POKE USR "a"+s,x: NEXT s: 
REM graphic A 
940 FOR s=0 TO 7: READ x: 

POKE USR "b"+s,x: NEXT s: 
REM graphic B 


960 FOR s=0 TO 7: READ x: 

POKE USR "c"+s ,x : NEXT s: 
REM graphic C 

980 DATA 24,24,24,60,60,60,60,6 
0 

1000 DATA 0,0,0,0,31,255,255,31 
1020 DATA 0,0,0,0,248,255,255,24 
8 

1040 RETURN 
1060 STOP 

1999 REM ***** a im***** 

2000 FOR x=14 TO 18: PRINT AT 21 
,x; INK 0;" t": BEEP beep,0 
: IF INKEY$=" z" THEN 

GO TO 2050 
2005 NEXT x 

2010 FOR x=18 TO 14 STEP -1: 

PRINT AT 21, x; INK 0;"t " : 
IF INKEY$="z" THEN 
GO TO 2050 
2015 NEXT x 


2020 

GO 

TO aim 



2050 

FOR 

p=13 

TO 19 

: IF 



SCREEN$ 

(21, p) 

_ ti ^ ii 

THEN 


GO 

SUB 

path 



2055 

NEXT p 




2060 

RETURN 




2999 

REM *****path***** 


3000 

IF 

p=13 

THEN 

LET 

a = 114 

3005 

IF 

p=14 

THEN 

T iprn 

a = 114 

3010 

IF 

p=15 

THEN 

LET 

a = 124 

3020 

IF 

p=16 

THEN 

LET 

a = 131 

3030 

IF 

p=17 

THEN 

LET 

a = 139 

3040 

IF 

p=18 

THEN 

LET 

a = 147 

3045 

IF 

p= 19 

THEN 

LET 

a = 147 

3050 

RETURN 




3999 

REM *****hit***** 


4000 

IF 

a = 114 

THEN 

PRINT II 


; AT 8,14; "B" ; AT 8,15;"B": 

IF f laga=0 AND flagb=0 
THEN LET score=2: LET fla 
ga=l: LET total=total+score 
: GO TO 4055 

4010 IF a=124 THEN PRINT INK 0 
; AT 8,14; "B" ; AT 8,15;"B"; 

AT 8,16; "C" ; AT 9,15;"C": 

IF f lagb=0 THEN LET score 
=4: LET flagb=l: LET total= 
total+score: GO TO 4055 
4030 IF a=131 THEN PRINT INK 0 
; AT 8,14; "B" ; AT 8,15;"B"; 

AT 8,16; "C" ; AT 8,17;"C"; 

AT 8,18; "B" ; AT 9,15;"C"; 

AT 9,16; "C" ; AT 9,17;"C"; 
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AT 10,16; "B" : LET score=9-s 
core: LET total=total+score 
: GO TO 4055 

4040 IF a=139 THEN PRINT INK 0 
; AT 8,15; "B" ; AT 8,16;"C"; 

AT 8,17; "C" ; AT 8,18;"B"; 

AT 9,17; "C" : IF flagc=0 
THEN LET score=4: LET fla 
gc=l: LET total=total+score 
: GO TO 4055 

4050 IF a=147 THEN PRINT INK 0 
; AT 8,17; "C" ; AT 8,18;"B": 

IF f lagd=0 AND flagc=0 
THEN LET score=2: LET fla 
gd=l: LET total=total+score 

4055 LET f lag=f lag+1 
4060 RETURN 

4999 REM *****counter***** 

5000 PAUSE 50 

5010 LET count=count+l 
5015 PRINT AT 3,3;count 
5020 IF count=ll THEN GO TO 504 
0 

5030 GO TO 30 

5040 CLS : PRINT AT 10,10; 

FLASH 1; INK l;"Punti= ";t 
otal 

5042 IF total< 20 THEN PRINT 

AT 12,10; INK 1; FLASH 1;"R 
I PROVA" 

5044 IF total>19 AND total<40 
THEN PRINT AT 12,10; 

INK 1; FLASH 1 ; "VA MEGLIO" 

5047 IF total>39 AND total<60 
THEN PRINT AT 12,10; 

INK 1; FLASH 1; "BUONO" 

5050 IF total>59 AND total<75 
THEN PRINT AT 12,10; 

INK 1; FLASH 1; "MOLTO BENE 

II 

5052 IF total>74 AND total<90 

THEN PRINT AT 12,10; 

INK 1; FLASH 1 ; "ECCELLENTE 

II 

5053 IF total=90 THEN PRINT 

AT 12,10; INK 1; FLASH 1;"F 
ANTASTICO" 

5055 PAUSE 200 

5060 CLS : PRINT AT 10, 2; "Vuoi c 
ontinuare? (s/n)" 

5070 IF INKEY$<>"s" THEN IF 
INKEY$<>"S" THEN IF 


INKEY$<>"n" THEN IF 
INKEY$< > "N" THEN GO TO 5 
070 

5080 PAUSE 0: IF INKEY$="s" OR 

INKEY$="S" THEN GO TO 5090 

5085 CLS : FOR e=l TO 130: 

PRINT INK RND* 6 ; " Ciao "; 
: NEXT e 
5087 STOP 

5090 IF total>hi THEN LET hi=to 
tal: GO TO 5100 
5095 GO TO 10 

5100 CLS : PRINT AT 6,0; "Grandio 
sol Hai battuto il" '"record 
.Scrivi il tuo nome"'" (8 le 
ttere max.) e premi enter" 
5110 INPUT a$ 

5120 GO TO 10 

5999 REM *****intro***** 

6000 CLS : PRINT INK 2; FLASH 1 
; AT 10, 11; "BOWLING" 

7000 LET a= . 2 : LET b=.4 
7010 BEEP a, 5: BEEP a, 3: BEEP b, 
1 

7020 BEEP b , 1 : BEEP a,l: BEEP a, 
3: BEEP a, 5 

7030 BEEP a, 6: BEEP b,8: BEEP b, 
8: BEEP a, 8: BEEP a, 5 
7040 CLS : PRINT AT 10, 3; "VUOI L 
E ISTRUZIONI ? " ; AT 11,15;" ( 
s/n) " 

7050 LET a$= INKEY$ 

7060 IF a$<>"s" THEN IF a$ 

<>"S" THEN IF a$<>"n" 

THEN IF a$<>"N" THEN 
GO TO 7050 

7070 IF a$=" s" OR a$="S" THEN 
GO TO 7090 
7080 GO TO 5 

7090 CLS : PRINT AT 8,0; "Giochi 
due volte per frazione" '"a 
meno che tu non faccia" '"st 
rike con il primo tiro.": 

PRINT : PRINT : PRINT "Ogn 
i partita dura 10 frazioni. 
": PRINT : PRINT : PRINT "P 
remi z per fermare la frecc 
ia . " 

7100 PRINT AT 20,0; FLASH 1;"PRE 
MI UN TASTO" 

7110 IF INKEY$=" " THEN GO TO 71 
10 

7115 GO TO 5 
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Linee 

Commento 

10-50 

Spara un colpo e controlla se uno dei giocatori è stato 
colpito 

90-200 

Stampa le istruzioni del gioco 

530-600 

Disegna lo schermo 

610-760 

Contiene il programma principale e controlla se c’è un 
vincitore 

770-830 

Definisce i caratteri grafici e assegna i valori alle variabi- 
li usate 


Q uesto è un gioco per due persone. 

Essenzialmente è basato su un 
duello fra i due giocatori che controlla- 
no un cowboy ciascuno, piazzati uno 
sulla destra e l’altro sulla sinistra dello 
schermo. 

Nel mezzo c’è una strada e sparsi per i 
campi crescono dei cactus, in più sulla 
strada c’è una diligenza che si muove 
su e giù. Un cowboy non può essere 
colpito se si trova protetto da un cac- 
tus o dalla diligenza. 

Scoprirete anche che i vostri colpi non 
attraversano completamente lo scher- 
mo. Non è quindi una buona tattica 


starsene nascosti sperando che il vo- 
stro avversario si scopra imprudente- 
mente: questo non è un gioco per co- 
dardi. 


Per vincere il duello bisogna colpire 5 
volte l’avversario. 

Eccovi il listato del programma: 
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Ok corrai 

versione per ZX Spectrum 16K/48K 


3 GO TO 90 

5 REM SPARA E CONTROLLA COLPO 

10 FOR r= (b+2) TO (b+18) 

15 IF SCREEN$ (c,d)="." THEN 

GO TO 50 

16 IF ATTR (a , r ) =39 OR ATTR (a 
,r ) =33 THEN PRINT AT a,r-l 
?" GO TO 650 

17 PRINT AT a ,r-l? " " ; AT a,r; 

INK 7;".": NEXT r: PRINT 
AT a , r- 1 ; " " : GO TO 650 
20 RETURN 

25 FOR r= (d-1) TO (d-18) 

STEP -1 

30 IF SCREEN$ (a,b)=". n THEN 
GO TO 40 

33 IF ATTR (c,r-l)=39 OR 
ATTR (c,r-l)=33 THEN 
PRINT AT c,r;" GO TO 73 

0 

35 PRINT AT c , r ; " " ; AT c,r-l; 
INK 7;".": NEXT r: PRINT 
AT c,r;" GO TO 730 
40 PRINT AT a,b;"LJ";AT a+l,b; 
" LET s2=s2+l : BEEP .2,2 
0: BEEP .2,10: BEEP .2,15: 

PRINT INK 7? PAPER 0;AT 0 
, 31 ; s2 : PRINT AT a,b?" 

AT a ,b+l ? " ": GO TO 730 
50 PRINT AT c ,d; "KL" ; AT c+l,d; 
" ": LET sl=sl+l : BEEP .2,2 
0: BEEP .2,10: BEEP .2,15: 

PRINT INK 7? PAPER 0;AT 0 
,8; si: PRINT AT c,d?" " ; 

AT c ,d+l ; " ": GO TO 650 


90 INK 2: PAPER 6: BORDER 6: 

CLS 

100 PRINT "DUELLO NEL VECCHIO W 
EST" 

110 PRINT AT 2,1; "IL PRIMO PIST 
OLERO CHE COLPISCE IL PROPR 
IO AVVERSARIO ALMENO CIN 
QUE VOLTE E' IL VINCITORE 
DEL DUELLO" 

120 PRINT AT 6, 12; "CONTROLLI" 

130 PRINT AT 8, 4; "PLAYER- 1"; 

AT 8, 20; "PLAYER- 2" 

135 PRINT AT 9,14; "FUOCO" ; AT 11 
, 14 ; " 2" ; AT 11 , 15 ;"<>"; AT 11 
,17; "9" 

140 PRINT AT 10, 8; "SU-Q" ;AT 12, 
6 ; "GIU ' - 1" ; AT 14 , 3 ; "SIN . -CA 
PS" ; AT 16, 4; "DESTRA- A" 

150 PRINT AT 10, 20; "0-SU" ;AT 12 
, 20 ; "P-GIU ' " ; AT 14, 20; "ENTE 
R-SIN. " ; AT 16 , 20 ; "SPACE-DES 
TRA" 

160 PRINT : PRINT "NON PUOI ESS 
ERE COLPITO SE TI NASCOND 
I DIETRO UN CACTUS O DI 

ETRO LA DILIGENZA SULLA STR 
ADA" 

165 INPUT "NOME DEL GIOCATORE U 
NO" ; A$ : IF A$ = " " THEN 

GO TO 165 

166 INPUT "NOME DEL GIOCATORE D 
UE" ; B$ : IF B$="" THEN 

GO TO 166 

170 PAUSE 50 

180 PRINT FLASH 1; PAPER 7; 

INK 2 ; AT 21, 3; "PREMI UN TA 
STO PER INIZIARE" 

200 PAUSE 0 

530 PAPER 4: BORDER 4: INK 0: 

CLS : RESTORE : GO SUB 770 
: PRINT PAPER 7 ; AT 0,0; 

INVERSE 1 ; "PUNT . 1= " ; AT 0, 
23; INVERSE 1;"PUNT.2= "? 

AT 0,8; OVER 1; PAPER 7;sl; 
AT 0,31; PAPER 7;s2: OVER 0 

540 FOR f =21 TO 0 STEP -1: 

PRINT AT f , 14 ; "<" ; AT f,18; 
">": NEXT f 

564 RESTORE 565: FOR f=l TO 8: 

READ w,x ,y , z : PRINT INK 7 
;AT w,x;CHR$ 148 ;AT y,z; 

INK 7 ;CHR$ 149: NEXT f 
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565 DATA 11,20,12,20,3,5,4,5,7, 
10,8,10,17,25,18,25,2,19,3, 
19,18,8,19,8,13,5,14,5,6,27 
, 7,27 

600 FOR o=19 TO 1 STEP -.5: 

PRINT AT 0+1,16;" " ; AT 0+2 
,16;" " ; AT o-l,16; INK 7; 
CHR$ 144: PRINT AT 0,16; 

INK 1;CHR$ 145 

610 PRINT OVER 1;AT a,b;CHR$ 1 
46 ; AT a + 1 , b ; OVER 1;CHR$ 14 
7 

620 LET a=a+ ( IN 63486=190 AND 
ATTR (a+2 , b) =32 AND ATTR (a 
+2 , b+1) =32 AND a<19)-(IN 64 
510=190 AND ATTR (a-l,b)=32 
AND ATTR (a-l,b-l)=32 
AND a>2) 

625 LET b=b+ ( IN 65022=190 AND 
ATTR (a ,b+2) =32 AND ATTR (a 
+1, b+1) =32 AND b<12) - ( IN 65 
278=190 AND ATTR (a,b-l)=32 
AND ATTR (a-l,b-l)=32 
AND b>2) 

630 OUT 63486,0: OUT 64510,0: 
OUT 65022,0: OUT 65278,0 

645 PRINT AT a,b;CHR$ 146;AT a+ 
1 , b ; CHR$ 147 

647 IF INKEY$ = " 2 " THEN GO TO 1 
0 

680 PRINT AT c,d; OVER 1;CHR$ 1 
50 ; AT c+1 , d ; OVER 1;CHR$ 15 
1 

700 LET c=c+ ( IN 61438=190 AND 
ATTR (c+2,d) =32 AND c<19)-( 
IN 57342=190 AND ATTR (c-1, 
d) =32 AND c>2) 

710 LET d=d- ( IN 49150=190 AND 
ATTR (c ,d-2) =32 AND ATTR (c 
+l,d-l) =32 AND d>20) + ( IN 32 
766=190 AND ATTR v c,d+l)=32 
AND ATTR (c-l,d+l) AND d<3 
0) 

720 PRINT AT c,d;CHR$ 150;AT c+ 
1 , d ; CHR$ 151 

725 IF INKEY$="9" THEN GO TO 2 
5 

730 IF sl=5 THEN PRINT 
INVERSE 1 ; AT 11,10; 

PAPER 7; FLASH l;a$;" VINC 
E": PAUSE 200: PRINT AT 13, 
3; PAPER 7; INVERSE 1;"PREM 
I UN TASTO PER GIOCARE": 
PAUSE 0: FLASH 0: GO TO 53 

0 


740 IF s2=5 THEN PRINT AT 11,1 
0; PAPER 7; FLASH l;b$;" VI 
NCE" : PAUSE 200: PRINT AT 1 
3,3; PAPER 7; INVERSE 1;"PR 
EMI UN TASTO PER GIOCARE": 
PAUSE 0: FLASH 0: GO TO 53 

0 

750 NEXT o 

760 PRINT AT 0,16;" " ; AT 1,16;" 
": GO TO 600 

770 RESTORE 780: FOR n=USR "a" 
TO USR "l"+7 : READ a: 

POKE n , a : NEXT n 

780 DATA 0,0,24,60,102,195,195, 
195,195,126,189,189,255,189 
,129,0 

790 DATA 48,120,48,127,120,120, 

120.48.80.144.216.0. 0.0.0.0 

800 DATA 24,24,27,27,27,219,219 
,223,223,220,220,252,252,28 
,28,28 

810 DATA 12,30,12,254,30,30,30, 

12.10.9.27.0. 0.0.0.0 

815 DATA 16,16,95,255,255,95,0, 
0,0,16,16,240,240,0,0,0 

817 DATA 0,8,8,15,15,0,0,0,16,1 

6.250.255.255.250.0. 0 

820 LET a=19: LET b=l : LET c=19 
: LET d=30: LET sl=0: LET s 
2 = 0 

830 RETURN 

Nel prossimo numero, 
anche programmi 
per lo ZX81. 
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LO A 





I n questo programma la vostra mis- 
sione è difendere la Terra da due on- 
date di invasori. 

La prima ondata non è molto potente e 
la loro forza distruttiva è abbastanza 
debole, quindi fino a 5 alieni possono 
passare attraverso le vostre difese sen- 
za provocare la sconfitta totale delle 
forze terrestri. 


Cina volta che avete colpito 20 di que- 
sti alieni arriverà la seconda ondata. 
Quest’ultima è molto più potente della 
prima e quindi solamente 2 di loro 
possono sfuggire alle vostre difese. Se 
anche questa volta riuscirete a colpire 
20 di questi alieni tutto il genere uma- 
no si potrà congratulare con voi per la 
vostra bravura e il vostro coraggio. 


l’altro, un gran numero di invasori rag- 
giunge la Terra, questa viene distrutta 
e il gioco termina con un messaggio 
che informa del triste destino del pia- 
neta. 

I tasti di controllo sono: T-‘5’ per muo- 
versi a sinistra, ‘6’-‘0’ per muoversi a 
destra e l’ultima fila di tasti per spara- 
re. 



Inferno 

versione per ZX Spectrum 16K/48K 

1 GO SUB 4000 

2 LET hi=0 

5 LET sc=0 

6 LET an=20 : GO SUB 1000 

10 BORDER 1: PAPER 5: INK 2: 
CLS 

20 FOR g=l TO 21: PRINT AT g , 0 
; "A" ; AT g, 31; "A" : NEXT g 
30 FOR h=0 TO 7: PLOT 0,h: 

DRAW INK 3; 255,0: NEXT h 
40 PLOT 0,167: DRAW 255,0 
50 PRINT AT 0,0; INK 3;"PUN " ; 
sc;TAB 13; INK 2 ;" INFERNO" ; 
TAB 23; INK 0;"REC " ;hi 


60 LET lp=100 : LET at=5: LET c 
=16: LET a$="BC" 

70 LET i=2 : LET q= INT (RND*17) 
+ 5 

71 IF sc>0 THEN PRINT AT 0,3; 

VI VI 

75 IF an=0 THEN GO TO 1310 
80 PRINT INK 0 ; AT i,q;a$ 

90 PRINT AT 20, c;" " 

95 IF i=20 THEN GO TO 270 
100 LET c=c+ ( IN 614380255 

AND c< 30 ) - (IN 634860255 
AND C>1) 

110 PRINT AT 20, c; INK 2 ; "D " 

120 PRINT OVER 1; INK 0;AT i,q 
;a$ 

125 LET i=i+l 

130 LET q=q+INT (RND*3)-l+(3 
AND q<-30) - (3 AND q>30) 

135 IF q=0 OR q=31 THEN 
GO TO 130 

140 PRINT OVER 1; INK 0;AT i,q 
; a$ : BEEP .01,12 
155 IF i=20 AND (q=c OR q+l=c) 
THEN PRINT AT i , c- 1 ; " EEE " 
: PRINT INK 2 ; AT 10,7; 

INK 3;" sei "; INK 0; "stato 
"; INK 2; FLASH 1;"DISTRUT 
TO!": BEEP 2,5: BEEP 1,10: 
PAUSE 150: GO TO 300 
160 IF (IN 652780255 OR IN 3 
27660255) THEN GO SUB 2 
00: LET lp=lp-l 
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165 IF lp=0 THEN GO TO 6000 
170 GO TO 80 

200 PLOT INVERSE l;c*8+4,17: 

DRAW INK INT (RND*3);0,14 
8: BEEP .06,16: PLOT 
INVERSE 1 ; c* 8 + 4 , 17 : DRAW 
OVER 1; 0,148 

220 IF ( i > 2 AND i<20) AND (q = c 
OR q+l=c) THEN LET SC=SC+ 
500: PRINT AT 0,4; INK 3 ; se 
: BEEP .08,5: PRINT INK 
INT ( RND* 3 ) ; AT i ,c-l; " EEE " : 

BEEP .02,15: PRINT AT i,C- 
1;" " : LET an=an-l: 

GO TO 70 
250 RETURN 

270 PRINT AT 20, q;" ": LET sc= 

se- 200 : IF sc<0 THEN 
PRINT INK 3 ; AT 0,3; se 
275 IF SC>0 THEN PRINT INK 3; 
AT 0,0; "PUN " ; se : IF sc>0 
THEN PRINT AT 0,3;" " 

280 LET at=at-l : IF at>0 THEN 
GO TO 70 

285 PRINT INK 2; FLASH 1;AT 10 
, 2; "PAZZO" ; INK 1; FLASH 0; 
" ne sono sfuggiti " ; INK 3 
;"ben 5!" 

290 BEEP .5,10: BEEP 1,-30: 

BEEP 2,20: BEEP 3,0 
310 IF sc>hi THEN LET hi=sc 
320 BORDER 3: PAPER 7: INK 3: 
CLS 

330 FOR h=0 TO 40 STEP 8: FOR t 
=40 TO 0 STEP -10: BEEP .07 
, h : BEEP . 04 , t : NEXT t: 

NEXT h 


340 PRINT AT 1,10; FLASH 1;"FIN 

E GIOCO" ;AT 3,1; FLASH 0;"L 
a terra ora sara' distrutta 
,";AT 10, 3; "Il tuo punteggi 
o e':";sc;AT 12, 5; "Il recor 
d e ' : " ; hi 

341 PRINT AT 16, 5; "Un' altra par 
tita? ( s/n) " 

342 LET x$=INKEY$ 

343 IF x$="" THEN GO TO 342 

344 IF x$<>"s" AND x$<>"S" 

AND x$<>"n" AND x$<>"N 
" THEN GO TO 342 

345 IF x$="n" OR x$="N" THEN 

CLS : PRINT AT 10,11;"***B 
YE***": PAUSE 200: NEW 

350 GO TO 5 

1000 BORDER 1: PAPER 1: INK 7: 

CLS 

1010 PRINT AT 0,10; INK 4;" 

{ 9SG8 } " ; OVER 1;AT 0,10;" 

" ; AT 1,10; 

PAPER 7 ; " { SG8 } INFERNO { SG8 } 
" ; AT 2, 10; " {9SG8}" ;AT 4,0; 

PAPER 2; INK 7; "DIFENDI LA 

TERRA DALL ' INVAS IONE ! " ; 

PAPER 1; INK 7;AT 7,2;'"Tas 
ti 1-5 muovi a sinistra"; 

AT 9,4;"Tasti 6-0 muovi des 
tra";AT ll,5;"Linea in fond 
o-fuoco";AT 17,8;"Premi un 
tasto" 

1100 PAUSE 0: RETURN 

1310 FOR y=0 TO 20 STEP 2: 

BEEP . 08 ,y : BEEP .2,5: 

NEXT y 

1315 BORDER 2: PAPER 1: INK 7: 

CLS 

1317 PRINT AT 11, 12; "Fase 2": 

PAUSE 50: CLS 

1319 FOR r=l TO 21: PRINT AT r,0 
; "F" ; AT r , 31 ; "F" : NEXT r 

1320 FOR w=0 TO 7: PLOT 0,w: 

DRAW INK 4; 255,0: NEXT w 

1324 PLOT 0,167: DRAW 255,0 

1329 PRINT AT 0,0; INK 6; "PUN "; 
se;TAB 10; INK 5 ; "INFERNO 

" ; TAB 23; INK 4; "REC ";hi 

1330 LET at=2 : LET c=16: LET al= 
20 

1335 LET i=2 : LET q=INT (RND*17) 
+ 5 

1340 IF al=0 THEN GO TO 2000 

1380 PRINT INK 6 ; AT i,q;"G" 
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1390 PRINT AT 20, c;" " 

1395 IF i=20 THEN GO TO 1570 
1400 LET c=c+(IN 614380255 

AND c< 30 ) - (IN 634860255 
AND c> 1 ) 

1410 PRINT AT 20, c; INK 5; 

BRIGHT 1 ; "H" 

1420 PRINT OVER 1; INK 6;AT i,q 
; "G" 

1425 LET i=i+l 

1430 LET q=q+INT (RND*3)-l+(3 
AND q<- 30) - ( 3 AND q>30) 
1435 IF q=0 OR q=31 THEN 
GO TO 1430 

1440 PRINT OVER 1; INK 6;AT i,q 
; "G" : BEEP .01,15 
1450 IF i=20 AND q=c THEN 

PRINT AT i,c; INK (RND*3)+ 
4; "E": PRINT INK 7;AT 10,5 
; "Oh caro!"; INK 7;" Che 
INK 7; FLASH 1 ; "PASTICCIO ! 
": BEEP 3,5: BEEP 3,15: 
PAUSE 50: GO TO 1600 
1460 IF (IN 652780255 OR IN 3 
27660255) THEN GO SUB 1 
500: LET lp=lp-l 
1465 IF lp=0 THEN GO TO 6000 
1470 GO TO 1380 

1500 PLOT INVERSE l;c*8+4,17: 

DRAW INK ( RND *3) +4;0,148: 
BEEP .06,12: PLOT 
INVERSE 1 ; C* 8 + 4 , 17 : DRAW 
OVER 1; 0,148 

1520 IF ( i>2 AND i<20) AND q=c 
THEN LET sc=sc+500: 

PRINT AT 0,4; INK 6;sc: 
BEEP .04,10: PRINT INK 6; 
AT i , c ; "E" : BEEP .08,2: 

PRINT AT i , c ; " ": LET al=a 
1-1: GO TO 1335 
1550 RETURN 

1570 PRINT AT 20, q;" ": LET sc=s 
c- 200 : IF sc< 0 THEN 
PRINT AT 0,3; INK 6;sc 

1575 IF SC>0 THEN PRINT AT 0,3; 
" ": LET at=at- 1 : IF at>0 
THEN GO TO 1335 

1585 PRINT INK 4; FLASH 1;AT 10 
,4; "FOLLE!"; INK 5; FLASH 0 
;" Ne sono " ; INK 6;"sfuggi 
ti 2!" 

1595 BEEP .8,10: BEEP 1,4: 

BEEP 2,-10: BEEP 1,18: 

BEEP 1,-20 


1600 GO TO 300 

2000 BEEP .08,19: BEEP .2,10: 

BEEP .15,15: BEEP .4,25: 
FOR w=0 TO 20 STEP 2: 

BEEP . 1 ,w: BEEP .05,4: 

NEXT w: BEEP .4,25: BEEP . 
15,15: BEEP .2,10: BEEP .8, 
15: BEEP .1,8: BEEP 2,3 
2010 BORDER 6: PAPER 6: INK 0: 
CLS 

2020 PRINT AT 10,4; FLASH l;"Hai 
salvato la Terra! ";AT 14,7 
; "CONGRATULAZ IONI ! " 

2030 PRINT AT 18,2; FLASH 0;"Pre 
mi un tasto per giocare" 
2040 PAUSE 0 
2050 GO TO 2 
4000 FOR n=0 TO 7 
4100 READ a: POKE USR "a"+n,a: 
NEXT n 

4110 DATA 255,255,192,192,255,25 
5/3,3 

4200 FOR n=0 TO 7: READ b: 

POKE USR "b"+n ,b : NEXT n 
4210 DATA 68,99,50,59,31,31,13,4 

4300 FOR n=0 TO 7: READ c: 

POKE USR "c"+n,c: NEXT n 
4310 DATA 145,227,166,238,252,12 
0,88,144 

4400 FOR n=0 TO 7: READ d: 

POKE USR "d"+n ,d : NEXT n 
4410 DATA 36,60,24,60,36,102,255 
,153 

4500 FOR n=0 TO 7: READ e: 

POKE USR "e"+n,e: NEXT n 
4510 DATA 153,0,36,0,219,0,92,12 
9 

4600' FOR n=0 TO 7: READ f: 

POKE USR " f "+n,f : NEXT n 
4610 DATA 219,102,219,102,219,10 
2,219,102 

4700 FOR n=0 TO 7: READ g: 

POKE USR "g"+n,g: NEXT n 
4710 DATA 153,126,90,126,60,36,2 
4,24 

4800 FOR n=0 TO 7: READ h: 

POKE USR "h"+n,h: NEXT n 
4810 DATA 102,36,36,60,102,231,1 
89,231 
5000 RETURN 

6000 PRINT INK 2;AT 10,1; "Hai e 
saurito l'energia!": BEEP 5 
,-30: GO TO 300 
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GP50A E GP50S 


le piccole stampanti per 
tutti i computer 








« wm,, SS , S , S«* ia 


^ .«ss» 


<*•♦»'* '**'*•< + 

« MI #***** 1 ’ 


Piccole e com- 
patte dalle pre- 
stazioni grandi e 
generose, le 
GP50A e GP50S 
sono realizzate 
con standard pro- 
fessionali a misura 
di Personal e Home 
computer e si impongono quale soluzio- 
ne ottimale per gli usi hobbystici più di- 


sparati a 
costi in- 
credibil- 
mente 
sorpren- 
denti. 
Particolare 
attenzione merita la 
GP50S, stampante direttamente inter- 
facciata verso i computer Sinclair ZX81 e 
Spectrum. 


Caratteristiche: 

• Stampante ad impatto a matrice di punti 
da 46 colonne (32 colonne versione 
GP50S) 

• Matrice di stampa 5x8 (7x7 versione 
GP50S) 

• Percorso di stampa monodirezionale (da 
sinistra a destra) 

• Capacità grafiche con indirizzamento del 
singolo dot 

• Possibilità di ripetizione automatica di un 
carattere grafico 

• Velocità 40 caratteri/secondo (35 caratteri/ 
secondo versione GP50S) 


• Caratterizzazione: 12 cpi e relativo espanso 

• Interfacce: parallela Centronics (interfaccia 
Sinclair versione GP50S) 

• Alimentazione carta a frizione (largh. carta 
fino a 5”) 

• Stampa 1 originale e 1 copia 

• Set di 96 caratteri ASCII 

• Consumo 11 W (standby) o 17W (stampa) 

• Livello di rumore inferiore a 60 dB 

• Durata di vita testa: 30 milioni di caratteri 

• Peso 1,5 KG 

• Dimensioni: 215 (prof.) x 250 (largh.) x 85 
(alt.) mm. 

• Nastro nero (standard); optionals: rosso, 
arancio, verde, blu, viola e marrone. 



I l programma in queste pagine trac- 
cia sul video grafici di funzioni mate- 
matiche. Si tratta di un programma 
semplice, di facile esecuzione, suffi- 
cientemente versatile, dato che con- 
sente la variazione del range di osser- 
vazione dell’andamento della funzione 
e la sovraimpressione degli assi car- 
tesiani o, a richiesta, di un reticolo ad 
incremento variabile. “Plot”, oltre a 
consentire la verifica grafica di uno 
studio di funzione, permette di familia- 
rizzare rapidamente con l’andamento 
delle più comuni funzioni. 

Prima di addentrarci nell’esame delle 
diverse parti componenti il program- 
ma, è opportuno richiamare breve- 
mente, per chi fosse da qualche tempo 
lontano dai problemi dell’analisi mate- 
matica, alcuni fondamenti della stessa. 
Le funzioni compatibili con questo 
programma sono esclusivamente le 
funzioni monodrome, e non le polidro- 
me o a più valori: per funzione mono- 
droma si intende una qualsiasi corri- 
spondenza che, ad un elemento di un 
insieme X, associa uno ed un solo ele- 
mento di un insieme Y. In concreto, ad 
ogni valore attribuito alla variabile in- 
dipendente x, deve corrispondere un 
solo valore della variabile dipendente 
y. Può invece verificarsi il contrario, 
vale a dire che ad ogni y possono corri- 
spondere più valori di x, senza per que- 
sto uscire dall’ambito delle funzioni 
monodrome. Non possono invece es- 
sere inserite nel programma le funzio- 
ni che non rispettino tale convenzione, 
quali generalmente tutte quelle in cui 
la variabile dipendente y figura con 
esponente diverso da quello unitario 
(ad esempio la circonferenza di equa- 
zione xT2 + rT2, vale a dire yT2 = rT2 - 
xt2). 

Un altro concetto da tenere assoluta- 
mente presente è poi quello di campo 
di esistenza. Tutti ricorderanno che 
non è possibile l’operazione di divisio- 
ne se il divisore è zero. Ad esempio, 
data la funzione y=l/x in corrispon- 
denza del valore x = 0 si avrebbe 
y= 1/0, che non ha significato. Nell’in- 
trodurre la funzione nel programma, 
bisognerà fare in modo che i valori che 
rendono priva di significato la funzio- 
ne stessa non vengano assunti dalla x 


del loop che la disegna, onde evitare 
l’arresto del programma e la comparsa 
di un errore del tipo “A Invalid Argu- 
ment”. 

Quanto detto sin qui per la divisione 
vale anche per altre operazioni, quali 
l’estrazione di radice quadrata e co- 
munque di indice pari (radicando < = 
zero) e il logaritmo (argomento< 
zero). Nel programma è stato in tal 
senso predisposto un procedimento 
che consente di attribuire alla x solo 
valori coerenti con le premesse sopra 
esposte, come vedremo in seguito. 

Un ultimo consiglio si rende necessa- 
rio in relazione ad un piccolo limite 
dello Spectrum: l’operazione di eleva- 
mento a potenza non viene eseguita se 
la base della potenza è un numero ne- 
gativo, mentre in realtà ci troviamo di- 
nanzi ad una operazione perfettamente 
lecita. Ricollegandosi alla definizione 
stessa di potenza, è possibile aggirare 
l’ostacolo esprimendo ogni volta la po- 
tenza come prodotto di basi (x*x inve- 
ce di xT2 e così via). 

Svolte tali premesse, possiamo ora 
passare a considerare il listato. In parti- 
colare la prima linea del programma 
consente di assegnare ai 12 indici di 
una matrice n$ le rispettive 12 strin- 
ghe (lunghe al massimo 40 caratteri): 
le stringhe in questione contengono le 
coordinate relative in virtù delle quali, 
muovendosi da uno “starting point”, si 
potranno tracciare i numeri corrispon- 
denti ai diversi step del reticolo che 
può essere associato al grafico della 
funzione al fine di renderne più agevo- 
le l’esame. Questo aspetto del pro- 
gramma sarà comunque diffusamente 
chiarito più oltre. 

Per quanto concerne la funzione og- 
getto di studio, essa viene inserita co- 
me stringa (f$) in corrispondenza 
dell’input posto alla linea 60: eviden- 
ziamo qui che di essa va sempre inseri- 
to il solo secondo membro (Es.: se la 
funzione data è y = xT2 - 3*x, si dovrà 
inserire solo xT2 - 3*x). 

Effettuata tale operazione, attraverso 
le diverse istruzioni comprese tra le li- 
nee 70 e 95 il programma richiede 
l’eventuale inserimento di condizioni 
di esistenza. Nel caso in cui la funzione 
sia definita in tutto il campo reale, nel 


programma verrà attribuito alla varia- 
bile “salto” il valore 1, consentendo 
così di saltare al momento opportuno 
un loop designato alla verifica delle 
condizioni in questione, nidificato in 
quello che concretamente traccia il 
grafico. 

Nel caso in cui siano invece richieste 
condizioni di esistenza, esse devono 
essere inserite come stringhe formula- 
te in modo tale da esprimere l’insieme 
dei valori per cui la funzione è definita. 
Per meglio chiarire gli aspetti di cui 
abbiamo trattato, consideriamo un 
esempio: sia data la funzione y= (log 
x)/(x-l). 

I passi da seguire sono: 

(i) introdurre la funzione: 

(LN x) / (x- 1 ) 

(ii) rispondere affermativamente alla 
richiesta di condizioni. 

(iii) inserire “2” per indicare che questo 
è il numero di condizioni necessarie 
(iiii) inserire le due condizioni x<0 e 
x < > 1, che stanno ad indicare che la 
funzione è definita solo per valori posi- 
tivi e maggiori di zero, ad eccezione 
del valore x = 1 in corrispondenza del 
quale vi è una discontinuità (peraltro 
eliminabile). 

Chiariti tali punti possiamo proseguire 
con l’esame del listato: in particolare 
attraverso i passi compresi fra le linee 
100 e 160 si determina il campo di os- 
servazione della funzione, sia in ascis- 
sa che in ordinata. Nel caso si intenda- 
no mantenere attivi i margini già previ- 
sti nel programma (da -12 a + 12 in 
ascissa; da -9 a + 9 in ordinata), è suffi- 
ciente rispondere affermativamente al- 
la richiesta di input posta alla linea 
100. Si rende forse opportuna una bre- 
ve precisazione in merito: con tali valo- 
ri si è inteso privilegiare un campo di 
osservazione abbastanza limitato, poi- 
ché è molto spesso in tale ambito che 
si ritrovano le più rilevanti peculiarità 
della funzione analizzata. Inotre il rap- 
porto 4/3 che intercorre fra i margini 
prescelti ripropone il rapporto fra pixel 
in ascissa e in ordinata: infatti la fine- 
stra prescelta per tracciare il grafico 
presenta 2p0 pixel in ascissa e 150 in 
ordinata. È evidente che rispettando 
quest’ultimo rapporto in sede di defini- 
zione dei margini, si evita di alterare il 
tracciato della funzione. L’utente può 
comunque, anche in considerazione 
delle caratteristiche della funzione og- 
getto di studio, attribuire ai margini 
qualsiasi valore desiderato, e questo 
semplicemente rispondendo negativa- 
mente alla richiesta di cui sopra, av- 
viando così una procedura di riasse- 
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La presentazione di PLOT. 


Gn esempio di rappresentazione grafica di funzione. 


gnazione dei valori ad essi relativi. 
Alla linea 180 vengono automatica- 
mente determinati i coefficienti di in- 
grandimento del grafico, e cioè “c” per 
la variabile indipendente e “d” per 
quella dipendente; mentre alla linea 
190 viene identificato (indicandolo 
con “s”) lo step del loop che concreta- 
mente traccia il grafico, e che si svolge 
fra le linee 200 e 300. Questi parametri 
fanno sì che la funzione sia tracciata 
punto per punto, e ciò indipendente- 
mente dal range di osservazione pre- 
scelto. 

Ad ogni passaggio alla linea 200 la x 
(variabile indipendente) assume tutti i 
valori compresi fra i margini sinistro e 
destro; è invece il loop che inizia alla li- 
nea 220 che, effettuando un salto per 
tutti gli eventuali valori che rendono 
priva di significato la funzione sino alla 
linea 300 (NEXT x), consente di evitare 
l’arresto del programma, attribuendo 
così alla x solo valori compresi nel suo 
insieme di definizione. Le modalità se- 
condo cui tale procedura opera sono le 
seguenti: di volta in volta vengono 
considerati sia il valore di x a quel mo- 
mento, sia le diverse stringhe 1 $ con- 
tenenti le condizioni di esistenza. Se 
ogni singola proposizione è vera, cioè 
se il valore considerato di x verifica la 
condizione, il programma prosegue si- 
no alla linea 250 ove si determina il va- 
lore della stringa f$, vale a dire il valo- 
re della funzione in corrispondenza di 
quel dato valore di x. In caso contrario, 
e cioè se il valore attuale di x non sod- 
disfa la condizione, il programma salta 
alla linea 300 senza tentare di plottare 
il punto relativo a tale valore. 

Quando il valore della variabile indi- 
pendente è compreso nel campo di esi- 
stenza della funzione, alle linee 260 e 
270 vengono calcolate le coordinate in 
pixel per l’ascissa e per l’ordinata del 
singolo punto, mentre le condizioni 
poste alla linea 280 impediscono l’ar- 
resto del programma nel caso in cui ta- 
li coordinate siano al di fuori della fine- 
stra prescelta per designare il grafico. 
Infine la linea 290 imprime il punto se- 
condo quanto determinato nelle fasi 


precedenti, traslato di 16 pixel in ascis- 
sa e di 20 in ordinata al fine di ottenere 
uno spazio ai lati della finestra, spazio 
riservato all’inserimento dei numeri re- 
lativi ai diversi step del reticolo. 
Ultimato il grafico apparirà sulla parte 
inferiore dello schermo una lista di 3 
opzioni (assi, reticolo, fine program- 
ma): per passare all’opzione desiderata 
è sufficiente inserire il numero ad essa 
corrispondente. Mancando nel Basic 
Spectrum l’utile ON...GO TO, alla li- 
nea 440 il GO TO è stato computato 
secondo i più semplici fondamenti del- 
la logica proposizionale booleana, se- 
condo i quali una proposizione vera ha 
valore 1, mentre una falsa ha valore 0. 
E dunque evidente che solo l’identità 
verificata fra le tre inserite alla linea 
440 assumerà valore 1, mentre le altre 
due, necessariamente false, assume- 
ranno valore 0, annullando il coeffi- 
ciente che le precede e consentendo 
così il salto alla linea desiderata. 

Fra le opzioni ora citate, merita ampio 
chiarimento quella concernente il reti- 
colo: anche l’opzione 1 risulterà chiara 
dopo tale disamina. 

Per tracciare il reticolo il programma 
viene rinviato alla linea 700: in questa 
fase viene richiesto un input, corri- 
spondente all’incremento desiderato 
delle ascisse. In relazione a questo pa- 
rametro il programma stamperà un da- 
to numero di linee parallele all’asse 
delle ordinate, numero ottenuto dal 
rapporto: 

(ampiezza intervallo di osservazione) / 
(incremento ascisse); 
questo numero è rappresentato dalla 
variabile “t” alla linea 710, mentre alla 
linea successiva “k” determina la lun- 
ghezza dell’incremento calcolata in pi- 
xel, vale a dire il numero di pixel che 
separano due assi verticali consecutivi 
del reticolo. Le condizioni poste alla li- 
nea 730, infine, sono atte ad impedire 
che l’incremento delle ascisse non sia 
un divisore perfetto dell’ampiezza del 
range di osservazione. 

Procedimento analogo a quello de- 
scritto si svolge alle linee 800/830 per 
tracciare le parallele all’asse delle 


ascisse: in tal caso “p” svolge la mede- 
sima funzione della variabile “t” vista 
sopra, mentre “f” rappresenta l’incre- 
mento in pixel. 

Nel gruppo di linee fra la 900 e la 970 
si trovano poi le istruzioni per tracciare 
materialmente il reticolo, le cui carat- 
teristiche sono appunto quelle deter- 
minate nelle due precedenti routines. 
Gna volta terminato il reticolo restano 
solo da imprimere, in corrispondenza 
dei punti di partenza di ogni linea verti- 
cale ed orrizzontale, i numeri che 
esprimono il valore del punto di inter- 
sezione di ciascuna linea del reticolo 
con gli assi cartesiani, numeri reali che 
rendono più agevole l’esame dell’an- 
damento della funzione. La soluzione 
adottata è tale scopo si è resa necessa- 
ria in conseguenza del fatto che, pur 
consentendo lo Spectrum di trattare si- 
multaneamente pagina testo e pagina 
grafica, l’utilizzazione del comando 
PRINT AT avrebbe condotto ad un ri- 
sultato impreciso sotto l’aspetto for- 
male e grafico, ma soprattutto ineffi- 
ciente per il corretto abbinamento fra 
singolo asse e numero ad esso relativo. 
È infatti noto che sia i caratteri stan- 
dard sia quelli definibili dall’utente 
possono essere impressi solo nei 
22*32 quadratini in cui risulta diviso 
lo schermo, ciascuno dei quali è com- 
posto da 8*8 pixel. 

Poiché il numero di linee, sia verticali 
che orizzontali, è di volta in volta deci- 
so dall’utente attraverso l’inserimento 
degli incrementi desiderati, è presso- 
ché impossibile che il numero di pixel 
che separa ciascun asse da quello suc- 
cessivo sia sempre un multiplo di 8, 
vale a dire della lunghezza/altezza di 
ogni carattere. Per rispettare questa ul- 
tima condizione, l’opzione reticolo va- 
riabile non avrebbe potuto essere rea- 
lizzata, dovendosi trovare ogni linea di 
reticolo in posizione fissa rispetto alla 
finestra, limitando la versatilità di que- 
sto strumento. Se infatti si volessero 
mantenere variabili gli step del retico- 
lo, l’effetto risultante sarebbe stato 
normalmente impreciso e addirittura 
inattendibile in caso di reticolo molto 
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Variando opportunatamente la scala, è possibile ottimizzare Schermata dell’opzione reticolo. Motare la corrispondenza 
lo spazio a disposizione. delle linee con i rispettivi valori. 


fitto: tale circostanza avrebbe infatti 
condotto alla sovraimpressione di nu- 
meri su altri già stampati, rendendo 
così vano l’ausilio rappresentato da ta- 
le opzione. 

Il problema in questione è stato dun- 
que risolto rinunciando ai caratteri re- 
sidenti, standard o definibili, compo- 
nendo 12 simboli (le 10 cifre, il meno, 
il punto) di dimensioni più piccole 
(6*5 pixel) che vengono impressi sul 
video non da PRINT, bensì da PLOT. 
Entrano cioè in gioco le 12 stringhe 
cui abbiamo brevemente accennato 
all’inizio della descrizione del listato, e 
che contengono le coordinate relative 
per tracciare i diversi simboli muoven- 
dosi da uno starting point determinato 
dal pixel di partenza di ogni linea, ver- 
ticale o orizzontale, e dalla lunghezza 
del numero da rappresentare. 

In particolare, per realizzare quanto so- 
pra esposto ci si avvale di 3 routine, va- 
ie a dire quella che inizia alla linea 
1000 per i numeri riferiti all’incremen- 
to sull’asse delle ascisse, quella che 
inizia alla linea 1200 per i numeri rela- 
tivi all’incremento delle ordinate, ed 
infine la routine che inizia alla linea 
2000, comune alle due precendenti, e 
che realizza l’impressione dei numeri 
richiesti. 

Esaminiamo, a scopo semplificativo, 

10 svolgimento della procedura riferita 
al solo asse delle ascisse. La variabile 
“flag”, posta uguale a zero alla linea 
1005, ha lo scopo di impedire che il 
primo numero da stampare sullo 
schermo, nell’angolo in basso a sini- 
stra, esca dallo schermo. Tale variabile 
verrà continuamente aggiornata nel 
corso del loop che inizia alla successi- 
va linea di programma, onde evitare 
anche la sovraimpressione di un nu- 
mero su altri precedentemente impres- 
si. 

11 loop ora citato sfrutta una variabile 
di controllo (“j”) che varia tra zero e il 
numero e il numero di linee verticali 
costituenti il reticolo, numero rappre- 
sentato da “t”. Alla linea seguente so- 
no inizializzate a zero due variabili: 
“sz”, che per tutta la durata di questa 











fase sarà costante in quanto coefficien- 
te che determina l’ordinata del pixel da 
cui dovrà partire il plottamento sull’as- 
se delle ascisse, essi andranno impres- 
si su una ideale linea parallela a tale as- 
se); e “q” che influenza la variabile di 
controllo di un altro loop nidificato in 
quello che stiamo trattando, e che ini- 
zia alla linea 1 100. Fra le linee 1020 e 
1060 si determinano il valore del nu- 
mero del numero da stampare e la lun- 
ghezza di tale numero, reso stringa; 
inoltre le condizioni alle linee 
1050/1060 arrotondano il numero da 
rappresentare a zero per valori molto 
prossimi a tale valore. 

Alla linea 1070 la variabile “sv” rap- 
presenta finalmente lo starting point, 
cioè il punto da cui ciascun numero 
dovrà essere plottato: questo parame- 
tro si ottiene moltiplicando l’incre- 
mento in pixel che separa due linee 



verticali consecutive (“k”) e il numero 
ordinale di ciascuna linea (primo, se- 
condo e così via), sottraendo poi a tale 
prodotto la metà della lunghezza del 
numero da stampare reso stringa. I va- 
lori costanti in tale algoritmo tengono 
conto della traslazione della finestra in 
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ascissa (16 pixel). A questo punto, se 
lo starting point non è minore di 
“flag”, inizia il loop che attraverso lo 
slicing e le operazioni di stringa indivi- 
dua di volta in volta il simbolo da rap- 
presentare ed il corrispondente indice 
relativo alla matrice n$, rinviando il 
programma alla routine di disegno alla 
linea 2000. In sostanza a quest’ultima 
routine si giunge considerando volta 
per volta una sola cifra (o un simbolo) 
del numero da rappresentare in corri- 
spondenza di un asse. La linea 2010 
contiene due variabili: "as”, che rap- 
presenta lo starting point; e "or”, che 
rappresenta l’ordinata di tale punto 
(costante in questa fase perché “sz” è 
sempre uguale a zero). Dalla linea suc- 
cessiva si avvia il loop che material- 
mente traccia il numero: qui "ss” è l’in- 
dice della matrice n$, corrispondente 
al numero trattato. Se, ad esempio, la 
cifra considerata è 3, il programma 
considera la stringa n$ (3) che natural- 
mente contiene le coordinate relative 
atte a disegnare tale cifra. Attraverso 

10 slicing vengono dapprima conside- 
rati i caratteri che occupano posizioni 
dispari nella stringa. Quindi, se il pri- 
mo carattere è uguale a 1, si procede a 
disegnare il punto di coordinate "as” e 
“sv”; in caso contrario il punto non vie- 
ne acceso sullo schermo (se cioè il pri- 
mo carattere in posizione dispari è ze- 
ro). 

In ogni caso dopo questa operazione 
viene considerato il primo carattere in 
posizione pari: se quest’ultimo è 1 vie- 
ne incrementata di una unità l’ascissa 
dello starting point, mentre se è 3 tale 
valore viene ridotto di una unità. Se in- 
vece il carattere considerato è 2 o 4 
viene allora rispettivamente aumenta- 
ta o diminuita l’ordinata di quel punto. 
In sostanza considerando gii elementi 
che compongono la stringa oggetto di 
esame, tutti i caratteri in posizione di- 
spari servono a decidere se il punto 
(as,or) debba o no essere impresso sul- 
lo schermo, mentre i caratteri in posi- 
zione pari rendono tale punto mobile 
in quattro direzioni; le differenti com- 
binazioni possibili consentono quindi 
di disegnare sullo schermo i simboli ri- 
chiesti che, lo ripetiamo ancora una 
volta, non sono caratteri standard del- 
lo Spectrum. Terminata questa opera- 
zione con riguardo alla prima cifra (o 
simbolo) del numero da rappresentare, 

11 programma toma al loop della linea 
1100 ove si individua il successivo 
simbolo da disegnare, mentre nel con- 
tempo vengono aggiornati i valori del- 
le variabili rilevanti ("flag”, "sv”, "ss”) 
e così via sino al termine del primo nu- 
mero da stampare, successivamente si 
identifica il numero da associare al se- 
condo asse verticale (siamo infatti an- 
cora all’interno del loop più esterno, 
quello che inizia alla linea 1010 e che 
individua appunto tutti i valori da rap- 
presentare sotto gli assi verticali), e si 
procede in modo analogo fino all’abbi- 
namento con l’ultima linea verticale. 


NOTA 


Le dieci cifre, il meno e il punto rappresentano i simboli che vengono impressi in 
corrispondenza degli assi cartesiani o delle linee orizzontali e verticali che costi- 
tuiscono il reticolo. 

Le coordinate relative per la loro impressione sono contenute nelle 12 stringhe 
che compongono la matrice n$(). 

Le quattro frecce stanno invece ad indicare la direzione in cui si sposta il punto 
mobile che traccia materialmente i simboli, direzione governata dai caratteri in 
posizione pari nelle stringhe n$(): spostamento verso destra se il carattere ‘letto’ è 
1; spostamento verso l’alto se è 2; e cosi via. 


f$ 

1$() 

qc 

PPP 

X, y 

a, b 

ms,md,mb,ma 

c, d 
s 

ix, iy 


t 

k 

P 

f 

v, z 


v$, z$ 
lv, lz 
n$() 

SV, sz 


ss 

as, or 


flag 

cont 

salto 


stringa contenente la funzione di studio 

stringhe contenenti le eventuali condizioni di esistenza 

numero di condizioni da porre 

è zero se la condizione 1$() non è verificata, altrimenti il suo 
valore è uno 

rispettivamente variabile indipendente e dipendente 
coordinate in pixel del punto da plottare 
margini (sinistro, destro, inferiore, superiore) del campo di 
osservazione 

coefficienti di ingrandimento del grafico 
step del loop che traccia il grafico 

incrementi per le ascisse e per le ordinate, volti a determi- 
nare il numero di linee che costituiranno il reticolo che si in- 
tende sovraimprimere al grafico della funzione 
numero di lineee verticali del reticolo 
distanza in pixel fra due linee verticali del reticolo 
numero di linee orizzontali del reticolo 
distanza in pixel fra due linee orizzontali del reticolo 
numeri di volta in volta da rappresentare in corrispondenza, 
rispettivamente, di una linea verticale o orizzontale del reti- 
colo 

numeri v e z resi stringhe 
numero di caratteri di v$ e z$ 

matrice di 12 stringhe contenenti le coordinate relative per 
tracciare 12 simboli (10 cifre, il meno, il punto) 
rispettivamente ascissa ed ordinata dello starting point, 
cioè del punto da cui si parte per plottare il numero v o z in 
corrispondenza di una linea di reticolo 
numero indice della stringa n$ da considerare in relazione 
al simbolo che si deve disegnare 

ascissa ed ordinata del punto che, partendo dallo starting 
point e muovendosi in una matrice di carattere di 6*5 pixel, 
traccia il simbolo da rappresentare sullo schermo secondo 
le istruzioni contenute nelle diverse stringhe n$ 
variabile che impedisce la sovraimpressione di un numero 
su altri già tracciati 

consente di plottare nuovamente la funzione 
consente di saltare il loop di verifica delle diverse condizio- 
ni di esistenza nel caso in cui la funzione sia definita in tutto 
il campo reale 


ESEMPI PER L’INSERIMENTO DELLE FUNZIONI E DELLE CONDIZIONI 

(1) Funzione y = SIN x 
Inserire SIN x 
Condizioni: nessuna 

(2) Funzione y = SIN x/x 
Inserire (SIN x/x) 

Condizioni: una x >< 

( 3 ) Funzione y = log (x 2 - 3x +2) /x 
Inserire (LN (x*x - 3*x + 2)) /x 
Condizioni: una -— x < > 0 

x< 1 OR x>2 

( 4 ) Funzione y = xCOS x - SIN x 
Inserire x*COS x - SIN x 
Condizioni: nessuna 


Ultimate queste operazioni, il pro- 
gramma passa alla nuova routine per 
tracciare i numeri relativi all’incremen- 
to delle ordinate, che parte dalla linea 


1200. In tale contesto la procedura se- 
guita è la medesima: cambiano solo 
poche variabili che debbono tener con- 
to delle differenze. Infatti, mentre nella 
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routine precendente l’ascissa dello 
starting point (“sv”) dipendeva sia dal 
pixel di partenza di ciascuna linea ver- 
ticale sia dal numero di simboli da im- 
primere, qui il parametro dipende solo 
dalla lunghezza del numero trattato 
come stringa. Inoltre, mentre là l’ordi- 
nata dello starting point era costante, 
in questo caso tale variabile (rappre- 
sentata da “sz”) dipende dal pixel di 
partenza di ciascuna linea orizzontale. 
Fatte queste premesse, il procedimen- 
to si svolge come già descritto. Termi- 
na così l’opzione reticolo; tuttavia il 
programma non ha ancora termine: in- 
fatti rispondendo affermativamente al- 
la richiesta di continuazione che appa- 
re al di sotto del reticolo, è possibile 
sia procedere nuovamente al plottag- 
gio della funzione (modificando even- 


tualmente i margini estremi del campo 
di osservazione), sia inserire una nuova 
funzione da analizzare. In conclusione, 
una volta inserita correttamente una 
funzione e definito il suo campo di esi- 
stenza attraverso le eventuali condizio- 
ni inserite come stringhe, è possibile 
osservarla ripetutamente in diverse “fi- 
nestre” del campo reale, centrando il 
range di osservazione sul peculiare an- 
damento di ogni funzione. È cioè pos- 
sibile, ad esempio, studiare una cubica 
(y = xt) dapprima nell’ambito dei mar- 
gini standard, e poi in margini più ri- 
stretti per quanto riguarda l’ascissa 
(es.: da -3 a +3), mantenendo invece 
inalterati i margini per l’ordinata (da -9 
a +9): l’unica considerazione da tener 
presente è che in questo modo si altera 
l’andamento della funzione a causa 


della diversa scala di misura sui due 
assi. 

Infine, l’ultima parte del programma 
(da linea 9000) costituisce una pagina 
grafica di presentazione: salvando il 
programma con la opzione LIME riferi- 
ta a quest’ultimo numero di linea, lo si 
renderà autopartente. 

Per concludere intendiamo segnalare 
che alcune peculiarità di “Plot”, quali 
la composizione di stringhe contenenti 
informazioni per disegnare simboli 
grafici di qualsiasi dimensione, o la 
‘computazione booleana’ dei comandi 
GO TO, possono trovare largo impiego 
in ogni tipo di programma al fine di su- 
perare alcuni piccoli vincoli propri del 
pur ottimo BASIC Spectrum. 


Plot 

versione per ZX Spectrum 16K/48K 


5 REM ***** PLOT ***** 

10 DIM n$ (12,40) : GO SUB 4000 
15 LET cont=0 : LET salto=0 
20 IF cont=0 THEN GO TO 60 
30 INPUT "VUOI MODIFICARE LA E 
UNZIONE ?" ; C$ 

40 IF c$<>"s" AND c$<>"S" 

AND c$<>"n" AND c$<>"N 
" THEN BEEP .5,12: GO TO 4 
0 

50 IF c$ = "n" OR c$ = "N" THEN 
GO TO 100 

60 CLS : PRINT AT 19,0;"Funzio 
ne": PLOT 0,14: DRAW 63,0: 
INPUT "y=";f$ 

65 PRINT AT 21 , 0 ; "y=" ; f$ ' ' 

70 INPUT "ci sono condizioni ? 
• ";c$ 

73 IF c$<>"s" AND c$<>"S" 

AND c$<>"n" AND c$<>"N 
" THEN BEEP .5,12: GO TO 7 
0 

75 IF c$="n" OR c$="N" THEN 
LET salto=l : GO TO 100 
80 INPUT "quante condizioni ? 

** f C[C 

85 DIM 1$ (qc , 20) : PRINT '"Cond 
izioni" ' ' : PLOT 0,6: DRAW 8 
0,0 

90 FOR u=l TO qc: INPUT "C. E. 

1$ (u) : PRINT ' 1$ (u) : 

NEXT u 
95 PAUSE 0 

99 REM definizione range varia 
zione 


100 CLS : PRINT "'VUOI MARGINI 
STANDARD ? (S/N) '"'"per a 

scissa ( -12 / 12 )"'"pe 

r ordinata ( - 9 / 9 ) " 

: INPUT c$ 

110 IF c$<>"s" AND c$<>"S" 

AND c$<>"n" AND c$<>"N 
" THEN BEEP .5,12: GO TO 1 
00 

120 IF c$="s" OR c$="S" THEN 
LET ms = - 12 : LET md = 12: 

LET mb=-9 : LET ma=9: 

GO TO 170 

130 PRINT "'ASCISSA : MARGINE SI 
NISTRO INPUT ms: 

PRINT ms 

140 PRINT "ASCISSA : MARGINE DE 
STRO INPUT md: PRINT m 

d 

150 PRINT "ORDINATA: MARGINE INF 
ERIORE INPUT mb: 

PRINT mb 

160 PRINT "ORDÌ NATA: MARGINE SUP 
ERIORE INPUT ma: 

PRINT ma 

170 PAUSE 20: CLS 
175 REM definizione coefficient 
i di ingrandimento 
180 LET c=200/ (md-ms) : LET d=15 
0/ (ma-mb) 

190 LET s=l/c 

200 FOR x=ms TO md STEP s: 

REM loop 

210 IF salto=l THEN GO TO 250 
220 FOR u=l TO qc 
225 LET ppp=VAL 1$ (u) 

230 IF ppp=0 THEN GO TO 300: 

REM eventuali condizioni d 
' esistenza 
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240 NEXT u 

250 LET y=VAL f $ : REM funzione 
260 LET a= (x-tns) *c 
270 LET b= (y-mb) *d 
280 IF b< 0 OR b>150 THEN 
GO TO 300 

290 PLOT a+16 , b+20 
300 NEXT x 

400 PRINT AT 21,0;"1)ASSI 2) 

RETICOLO 3) USCIRE" : 

REM opzioni 
410 INPUT r 

420 IF rOl AND r<>2 AND r 
03 THEN BEEP .5,12: 

GO TO 400 

430 FOR h=0 TO 31: PRINT AT 21, 
h;" ": NEXT h 

440 GO TO (500* (r = l) +700* (r = 2) + 
5000* (r = 3) ) 

500 LET oq=- (ms*c) 

510 IF oq< 0 OR oq>200 THEN 
GO TO 550 

520 PLOT oq+16,20: DRAW 0,150 

530 LET sv=oq+15 

540 LET ss=10: LET sz=0 

545 GO SUB 2000 

550 LET ow=- (mb*d) 

560 IF ow< 0 OR ow>150 THEN 
GO TO 600 

570 PLOT 16 ,ow+20 : DRAW 200,0 
580 LET sv=232 : LET sz=ow+8: 

LET ss=10 
590 GO SUB 2000 
595 PRINT AT 0,0;" " 

600 GO TO 1500 

700 INPUT "INCREMENTO X ? ";ix 

710 LET t= (md-ms ) /ix 
720 LET k= (200*ix) / (md-ms) 

730 IF t-INT t<>0 THEN 

PRINT AT 21, 0; "INCREMENTO 
X NON COMPATIBILE": PAUSE 3 
0: FOR h=0 TO 31: PRINT 
AT 21, h; " " : NEXT h: 

GO TO 700 

800 INPUT "INCREMENTO Y ? " ; iy 

810 LET p=(ma-mb)/iy 
820 LET f = ( 150* iy) / (ma-mb) 

830 IF p-INT p<>0 THEN 

PRINT AT 21, 0; "INCREMENTO 
Y NON COMPATIBILE": PAUSE 3 
0: FOR h=0 TO 31: PRINT 
AT 21, h;" " : NEXT h: 

GO TO 730 
900 REM reticolo 


910 FOR j = 0 TO t 
920 PLOT k* j + 16 , 20 : DRAW 0,150 
930 NEXT j 
950 FOR j = 0 TO p 
960 PLOT 216 , f * j+20 : DRAW -200, 
0 * 

970 NEXT j 

1000 REM numeri ascisse 
1005 LET f lag=0 
1010 FOR j=0 TO t 
1020 LET sz=0 : LET q=0 
1030 LET v=ms+ix*j 
1040 LET v$=STR$ (v) 

1050 LET lv=LEN (v$) : IF VAL (v$ 
) >-0 . 1 AND VAL (v$) <0 
THEN LET v=0: LET v$="0": 
LET lv=l 

1060 IF VAL (v$ ) >0 AND VAL (v$)< 
0.1 THEN LET v=0: LET v$=" 
0": LET lv=l 

1070 LET sv=k* j- 6*lv/2+12 
1080 IF sv<=f lag+2 THEN GO TO 1 
160 

1090 IF v$ ( 1 TO 1)="-" THEN 

LET sv=sv+3: LET ss=ll: 

LET q=l : GO SUB 2000 

1100 FOR i= 1+q TO lv 

1110 LET sv=sv+6 

1120 IF V$(i TO i) ="." THEN 

LET sv = sv- 3 : LET ss = 12: 

GO SUB 2000: LET sv=sv-2: 
GO TO 1150 

1130 LET ss=VAL (v$(i TO i)): 

IF SS=0 THEN LET SS=10 
1140 GO SUB 2000 
1150 NEXT i 
1155 LET f lag=sv-2 
1160 NEXT j 
1180 PRINT AT 0,0;" " 

1200 REM numeri ordinate 

1205 LET f lag=l 

1210 IF p>20 THEN LET flag=2 

1215 IF p>40 THEN LET flag=4 

1220 FOR j=0 TO p STEP flag 

1230 LET q=0 

1240 LET z=mb+iy*j 

1250 LET z$=STR$ (z) 

1260 LET lz=LEN (z$): IF VAL (z$ 
) >-0.1 AND VAL (z$) <0 
THEN LET z=0: LET z$="0": 
LET lz=l 

1265 IF VAL (z$) >0 AND VAL (z$)< 
0.1 THEN LET z=0: LET z$=" 
0": LET lz=l 

1270 LET sv=244-lz*6: LET sz=f*j 
+ 9 
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1280 IF lz>6 THEN GO TO 1360 
1290 IF z$(l TO 1)="-" THEN 

LET sv=sv+6: LET ss=ll: 

LET q= 1 : GO SUB 2000 
1300 FOR i= 1+q TO lz 
1310 LET sv=sv+6 
1320 IF z$(i TO i) ="." THEN 
LET ss=12 : GO TO 1340 
1330 LET ss=VAL (z$(i TO i)): 

IF SS=0 THEN LET SS=10 
1340 GO SUB 2000 
1350 NEXT i 
1360 NEXT j 

1500 INPUT "VUOI CONTINUARE ? 
(S/N) ",e$ 

1510 IF e$<>" s" AND e$< > "S" 

AND e$<>"n" AND e$<>"N 
" THEN BEEP .5,12: GO TO 1 
500 

1520 IF e$="S" OR e$="s" THEN 
LET cont=l : GO TO 20 
1530 GO TO 5000 
2000 REM 

2010 LET as=sv: LET or=9+sz 
2020 FOR g=l TO 40 STEP 2 
2025 IF (n$ (ss) (g TO g)=" ") 

THEN LET g=40: GO TO 2200 

2030 IF (n$ (ss) (g TO g)="l") 

AND (as>=0) THEN PLOT as, 
or 

2040 LET s$=n$ (ss) (g+1 TO g+1) : 

LET i 1=VAL (S$) : GO TO (21 
00+10*il) 

2100 REM 

2110 LET as=as+l : GO TO 2200 
2120 LET or=or+l : GO TO 2200 
2130 LET as=as- 1 : GO TO 2200 
2140 LET or=or- 1 : GO TO 2200 
2200 NEXT g 
2220 RETURN 
4000 REM matrice 

4010 LET n$ (1) ="0101121212121212 

II 

4020 LET n$ (2) ="1212020212011111 
04140314031404111111" 

4030 LET n$ (3) ="0212020212011111 
04140314011414031312" 

4040 LET n$ (4) ="0212121201120114 
141414111403130212" 

4050 LET n$ (5) ="0212021212111111 
140404141403131202021111" 
4060 LET n$ (6) ="0212121212011111 
140303041111041414031312" 
4070 LET n$ (7) ="0202020202111111 
141414031403140312" 


4080 LET n$ (8) ="0212120212011111 
041403131401011414031312" 
4090 LET n$(9) ="1202021212011111 
041414131314010114031312" 
4100 LET n$ (10) ="021212121201111 
10414141414031313" 

4110 LET n$ (11) ="02020201111111" 

4120 LET n$ (12) ="010111" 

4150 RETURN 
5000 STOP 

9000 CLS : PRINT AT 5,2; FLASH 1 
;"F E R M A IL N A S T 
R O " ; AT 16,9; FLASH 0;"Pr 
emi un tasto": FOR h=0 TO 2 
4: BEEP . 1 , h : NEXT h: 

PAUSE 0 
9005 CLS 

9010 FOR x=0 TO 255 STEP 8: 

PLOT x , 0 : DRAW 0,167: 

NEXT x 

9015 FOR y=0 TO 175 STEP 8: 

PLOT 0 ,y : DRAW 247,0: 

NEXT y 

9020 FOR t=16 TO 96: PLOT 24, t: 

DRAW 7,0: NEXT t 
9025 FOR t=96 TO 88 STEP -1: 

PLOT 32, t: DRAW 39,0: 

PLOT 32 , t-40 : DRAW 39,0: 
NEXT t 

9030 FOR t=56 TO 88: PLOT 64, t: 
DRAW 7,0: NEXT t 


9035 FOR t=48 TO 120: PLOT 96, t: 

DRAW 7,0: NEXT t 
9040 FOR t=48 TO 96: PLOT 128, t: 
DRAW 7,0: PLOT 168, t: 

DRAW 7,0: NEXT t 
9045 FOR t=96 TO 88 STEP -1: 

PLOT 136, t: DRAW 39,0: 

PLOT 136, t-40: DRAW 39,0: 
NEXT t 


9050 FOR t=48 TO 120: PLOT 200, t 
: DRAW 7,0: NEXT t 
9055 FOR t=112 TO 104 STEP -1: 
PLOT 192, t: DRAW 32,0: 

NEXT t 

9060 FOR x=-10 TO 10 STEP 0.2: 
INK 2: LET y=SIN (x) : 

PLOT x*10+128,y* 10+151: 
NEXT x 

9070 PAUSE 150: CLS : INK 0 
9080 RUN 
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di Nicholas Wyre 

trad. e adatt. Marcello Spero 


In quanto tempo potete salvare la 
vostra adorata principessa? 


S copo di questo gioco è liberare 
una principessa dalla prigionia del 
malvagio King Kong, il gorilla gigante. 
Per riuscire in questa impresa dovrete 
superare tre fasi. 

1 - Arrivare alla prigione in cui è segre- 
gata la principessa salendo le scale fi- 
no all’ultimo livello, con il rischio di 
cadere in uno dei buchi o di finire cal- 
pestati da uno dei gorilla di guardia. 
Gna volta giunti al livello più elevato 
avrete due alternative per raggiungere 
la principessa: sgattaiolare fra le zam- 
pe di King nel momento in cui c’è spa- 
zio o salire sul barile rotolante e in en- 
trambi i casi correte il rischio di fare 
una brutta fine: essere presi da King o 
cadere dal barile. 

2 - Non appena liberata, la principessa 
correrà verso l’ascensore e vi entrerà. 
A questo punto dovrete scendere nuo- 
vamente fino al primo livello e preme- 
re il bottone posto nell’angolo sinistro 
in basso dello schermo, per far partire 
l’ascensore. 

3 - Infine dovrete togliere tutti i bulloni 
che tengono insieme il pavimento dei 
vari livelli, passandoci sopra. Quando 
avrete fatto saltare l’ultimo bullone 
King Kong rovinerà verso il basso, e 
sarà la sua fine. Attenti, però: se duran- 
te un’altra fase del gioco avrete inav- 
vertitamente tolto uno o più bulloni 
non potrete completare la vostra pro- 
va; quindi, attenzione! 

Consigli per l*uso 

Trascrivete tutto il programma e quin- 
di date RGN 1170: vedrete il solito 
messaggio “start tape, then press any 
key” che precede ogni registrazione; 
preparate il registratore e salvate il 
programma su cassetta. Gna volta ef- 
fettuata questa operazione il computer 
passerà automaticamente alla creazio- 
ne dei caratteri grafici; quindi vi chie- 
derà di nuovo di preparare il registra- 
tore: fatelo partire in modo da salvare 
la grafica subito di seguito al program- 
ma. A questo punto tutto è pronto: ba- 


sterà infatti fare LOAD “KING-KONG’’ 
per ottenere l’autostart del program- 
ma, che immediatamente caricherà la 
grafica. 

Per i proprietari della versione 16K, in- 
vece, la procedura sarà leggermente 
diversa. Il programma, infatti occupe- 
rebbe tutta la memoria disponibile, 
senza lasciare spazio per le variabili, 
ed il funzionamento sarebbe quindi 
impossibile. Per aggirare questo osta- 
colo fate così: 

1 - trascrivere il programma solo fino 
alla linea 1170 

2 - date RGN 1170 e salvatelo su cas- 
setta 

3 - date NEW 

4 - trascrivete la restante parte del pro- 
gramma, cioè le linee 1180-1290 

5 - date RGN 1 180 e salvate la grafica, 
subito al programma 

6 - date NEW per eliminare questa par- 
te del programma, che in effetti è inuti- 
le. 


A questo punto potete caricare il pro- 
gramma, che partirà da solo carican- 
dosi la sua grafica. 

Infine una possibile modifica per varia- 
re la difficoltà di gioco. La “cattiveria” 
con cui i gorilla vi inseguono è control- 
lata dal numero in linea 160, che nor- 
malmente è 0.75. Se lo portate ad 1 i 
gorilla non vi inseguiranno per niente, 
muovendovi a caso, mentre se ne di- 
minuite il valore sarete inseguiti più 
spesso. 

Controlli 

I tasti che guidano il vostro personag- 
gio attraverso lo schermo sono: 

4 - per saltare a sinistra 

5 - per correre a sinistra 

6 - per scendere una scala 

7 - per salire una scala 

8 - per correre a destra 

9 - per saltare a destra 

Descrizione del programma 

II programma comprende due parti: il 
programma vero e proprio e la routine 
di caricamento per i caratteri grafici. 
Qui di seguito trovate una breve spie- 
gazione delle varie operazioni compiu- 
te dal programma. 


Linee 

Commento 

10-30 

carica i caratteri grafici 

40-50 

inizializza il contatempo 

60-140 

ciclo principale del programma 

100-130 

disegna King Kong 

140-270 

190-320, 

muove i gorilla ed il barile 

370,380 

muove il vostro personaggio 

330-360 

controlla se avete urtato qualcosa 

280,390 

controlla se avete raggiunto la principessa o premuto il 
bottone 

420-440 

vi avvisa che siete morti 

450-470 

vi chiede se volete giocare ancora 

480-520 

cadete in un buco 

530-550 

siete morti 

560-610 

avete spezzato la corda che sostiene il barile 

620-650 

avete pestato un bullone 

660-670 

la principessa corre all’ascensore 

780-800 

saltate a sinistra 

810-830 

saltate a destra 

840-870 

cade il pavimento di un livello 

880-900 

l’ascensore sale con la principessa 

910-920 

salta l’ultimo bullone, e con lui precipita King Kong 

930-970 

volete giocare ancora? 

980-990 

vi viene comunicato che avete realizzato il miglior tem- 
po 

1000-1160 

creazioni dello scenario 
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King Kong 

versione per ZX Spectrum 16K/48K 


10 REM "KING-KONG" 

di NILCHOLAS WYR 

E 

20 LOAD "GRAFICA" CODE USR "A" , 
18*8: BORDER 2: INK 3: 

PAPER 5: CLS : LET H=9999: 
LET N$= "NICHOLAS WYRE " 

30 LET X=0 : LET E=l: LET F=-l: 
LET C=1 : LET V=21 : LET G = 5 
00: LET M=21 : LET N=2: 

LET E=1 : LET T=0: LET E$=" 
G": GO SUB 1000: LET B = 2: 
LET D= 1 

40 POKE 23672,0: POKE 23673,0: 
POKE 23674,0 

50 DEF FN S ( ) = INT ( (PEEK 23672 
+PEEK 23673*256+PEEK 23674* 
65535) /50) 

60 PRINT AT M,N; INK 1; OVER 1 
;E$ : BEEP .05,10: PRINT 
AT M, N; OVER 1; INK 1;E$ 

70 PRINT AT 2 , B ; INK 1;" R "; 
'AT 1,B; 

80 PRINT AT 9,C;" L L L " ; 

AT 13, V;" L L L " ; AT 17, C 
; " L L L " ; AT 2 1 , v ; " L L 
L " 

90 LET Z$= INKEY$ 

100 IF RND< . 5 THEN PRINT AT 3, 

19 ; " {G3 } " ; INVERSE 1;"#"; 
INVERSE 0 ; " {SG7 } " : GO TO 1 

20 

110 PRINT AT 3,19; "A{SG8 }C" 

120 IF RND< . 5 THEN PRINT AT 5, 
19 ; "D E": GO TO 140 
130 PRINT AT 5, 19; "ED " 

140 IF B= 2 THEN LET D = 1 
150 IF B=6 THEN LET D=-l 
160 IF RND< .75 THEN GO TO 220 
170 IF V> 2 AND V>N THEN LET V= 
V-l 

180 IF V< 21 AND V<N THEN LET V 
=V+1 

190 IF C< 21 AND C<N THEN LET C 
=C+1 

200 IF 02 AND C>N THEN LET C = 
C-l 

210 GO TO 270 
220 LET C=C+E : LET V=V+F 
230 IF 021 THEN LET E=-l 
240 IF C< 3 THEN LET E=1 
250 IF V< 3 THEN LET F=1 


260 IF V>21 THEN LET F=-l 
270 LET B=B+D 

280 IF M=2 AND N=ll AND X=0 
THEN GO SUB 660 
290 IF Z$="7" AND ATTR (M-1,N)= 
41 THEN LET E$="N": LET M= 
M- 1 

300 IF Z$="6" AND ATTR (M+1,N)= 
41 THEN LET E$="N": LET M= 
M+l 

310 IF Z$="5" AND N>0 THEN 
LET N=N- 1 : LET E$="K" 

320 IF Z$="8" AND N<>31 

THEN LET E$="H": LET N=N+ 
1 “ 

330 IF SCREEN$ (M,N)<>" " 

AND ATTR (M,N)=40 THEN 
GO TO 420 

340 IF SCREEN$ (M,N) ="_" THEN 
GO TO 560 

350 IF SCREEN$ (M+1,N)=" " 

AND M<>21 THEN GO TO 48 

0 

360 IF ATTR (M+l, N) =107 THEN 
GO SUB 620 

370 IF Z$= " 4 " AND N>1 THEN 
GO SUB 780 

380 IF Z$="9" AND N<30 THEN 
GO SUB 810 

390 IF M= 21 AND N=0 AND X=1 
THEN GO SUB 880 
400 BEEP .01,1 
410 GO TO 60 

420 PRINT AT M , N; FLASH 1;"0"; 

AT 10, 13; "CRUNCH" 

430 FOR N=0 TO 7: FOR X=0 TO 7: 
BEEP . 05,N: BORDER RND* 7 : 
NEXT X: NEXT N 
440 PAPER 3: INK 7: CLS : 

FLASH 1: PRINT AT 8,5; (" K 
ING KONG TI HA PRESO " 

AND M=5) ; AT 8,5; ("SEI STAT 
O SCHIACCIATO " AND M<>5 
) 

450 PRINT AT 18,1; "PREMI UN TAS 
To'""' per GIOCARE ANCORA"; 
AT 14, 1; "MIGLIOR TEMPO = "; 
H' • "di " ; n$ 

460 IF INKEY$=" " THEN BEEP .01 
, RND* 25: BORDER RND* 7: 

GO TO 460 

470 FLASH 0: BORDER 2: INK 3: 

PAPER 5: CLS : GO TO 30 
480 IF SCREEN$ (M,N)<>" " 

THEN LET M=N-1: GO TO 530 
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490 PRINT AT M,N; "G" ; AT M-1,N;" 

II 

500 IF M= 21 THEN GO TO 530 
510 LET M=M+1 : BEEP .03,M 
520 GO TO 480 

530 PRINT AT M,N; FLASH 1;"0"; 

AT 10, 13;"SPLAT!" 

540 FOR N=0 TO 7: FOR S=7 TO 0 
STEP -1: BEEP . 01 , S*N : 
BORDER S: NEXT S: NEXT N 
550 PAPER 4: INK 1: CLS : 

FLASH 1: PRINT AT 8 ,9; "SEI 
CADUTO" ;AT 10,4;" LA PARTI 
TA E' FINITA": GO TO 450 
560 PRINT AT 1,2;"- - " ; AT 2 

, 2 ; " | | " ; AT 3 , 2 ; " | 

| " ; AT 4,2; "R" : LET N=N+(1 
AND N= 2 ) - (T AND N=7) 

570 FOR A=2 TO 5: PRINT AT A-l, 
N;" " 

580 BEEP . 04 ,M 

590 PRINT AT A,N;"G": NEXT A 
600 LET M=5 
610 GO TO 530 

620 LET T=T+1 : PRINT AT M+1,N; 

Il _ Il 

630 IF SCREEN$ (M+l, 27) ="-" 

AND N=13 THEN GO SUB 840 
640 IF SCREEN$ (M+l, 13)="-" 

AND N=27 THEN GO SUB 840 
650 BEEP .01,50: RETURN 
660 LET X= 1 

670 PRINT AT 0,8; FLASH 1 ; "MMMM 
MM" : BEEP 1,10 

680 FOR A=ll TO 13: PRINT AT 1, 
A;" P " ; AT 2, A;" Q" : BEEP . 
05, A: NEXT A 
690 INK 1 

700 PRINT AT 2,14;"F": BEEP .05 
/ 50 

710 FOR A= 14 TO 25: PRINT AT 0, 
A;" P" ; AT 1,A;"{G3}Q": 

BEEP .01, A: NEXT A 
720 PRINT AT 0,13;" F" ; AT 1,14; 

"F" 

730 FÓR A=0 TO 3: PRINT AT A, 2 
6 ; " F " ; AT A+l , 26 ; "P" ; AT A+2, 
26 ; "Q" : BEEP .05, A: NEXT A 
740 PRINT AT 4,26;"ET";AT 5,26; 

"FQ" : BEEP .0,50 

750 FOR A=27 TO 29: PRINT AT 4 
, A; " P " ; AT 5, A;" Q" : BEEP . 
05, A: NEXT A 

760 INK 1: PRINT AT 4,29;"{G5}" 
; AT 5,29;"{G5}" ; AT 4,30; 
FLASH 1 ; " P " ; AT 5,30;"Q" 


770 FLASH 0: RETURN 

780 PRINT AT M-1,N-1; OVER 1 ; " J 
": BEEP . 05 ,M: PRINT AT M- 1 
, N- 1 ; OVER 1 ; " J " : BEEP .05, 
M 

790 IF SCREEN$ (M,N-2)<>" " 

AND ATTR (M,N-2)=40 THEN 
GO TO 420 

800 LET N=N- 2 : RETURN 

810 PRINT AT M- 1 , N+l ; OVER 1 ; " I 
";: BEEP . 05 ,M: PRINT AT M- 
1,N+1; OVER 1 ; "_I " : BEEP .05 
,M 

820 IF SCREEN$ (M,N+2)<>" " 

AND ATTR (M,N+2)=40 THEN 
GO TO 420 

830 LET N=N+2 : RETURN 

840 IF T=8 AND X=2 THEN 
GO TO 910 

850 FOR Q=M+1 TO M+4 

860 BEEP .01, Q: PRINT AT Q-1,14 
;" ";AT Q,14; 

INVERSE 1;"############# 

": NEXT Q 

870 RETURN 

880 LET X=2 : PRINT AT 4,30;" 

{SG8 } " ; AT 5,30;" {SG8}";AT 3 
, 30 ; " {SG8 } " 

890 BEEP 1,0 

900 FOR A=5 TO 2 STEP -1: 

PRINT AT A, 29;" " ; AT A-3 

,29;"{G5}{SG8}{SG5}" : 

BEEP . 1, A: NEXT A: PRINT 
AT 2,29;" ": BEEP .1,10: 

PRINT AT 1,29;" " : 

BEEP .1,15: PRINT AT 0,29; 
" ": BEEP 1,20: RETURN 


910 LET S=FN S(): PRINT AT 2,20 
;" " ; AT 3, 19; "A"; INVERSE 1 
; " 0 " ; INVERSE 0 ; "CGULP ! " : 

BEEP .5,2: PRINT AT 3,19;" 

" ; AT 4,19; 

INVERSE 1 ; "@ " ; AT 5,20; 

"D": BEEP .5,3: PRINT AT 4, 
19;" " ; AT 5,20;" " ; AT 5,1 

9 ; "B" ; INVERSE 1;"0." ; 

INVERSE 0 ; "E" : BEEP .5,3 
920 FOR Q=6 TO 21: PRINT AT Q,1 
4; INVERSE 1;"############# 
"; INVERSE 0 ; AT Q-2,19;" 

" ; AT Q-1,14;" "; 

INVERSE 1 ; "BC "; INVERSE 0 
; "E ": BEEP . 05 ,Q : 

NEXT Q: FOR J=-50 TO 50: 

BEEP . 03 , J : NEXT J 
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930 PAUSE 100: CLS : PRINT AT 2 
,5; "HAI ELIMINATO KONG 

E SALVATO LA PRINCIPE 
SSA" 1 ' " TEMPO = " ; S 

940 IF S<H THEN GO SUB 980 
950 PRINT AT 13 , 5 ; "MIGLIOR TEMP 
O = " ; H ' ' " DEL PRODE ";N$ 

960 PRINT AT 18,0; FLASH 1;" 
PREMI UN TASTO 

PER GIOCARE ANCORA 
": BORDER RND * 7 : 

BEEP .01, RND* 25: IF 
INKEY$=" " THEN GO TO 960 
970: BEEP 1,8: CLS : GO TO 30 
980 LET H=S : INPUT "HAI REALI ZZ 
ATO IL MIGLIOR TEMPO 
SCRIVI IL TUO NOME, PREGO " 
;N$ 

990 RETURN 

1000 FOR Q= 5 TO 21: PRINT AT Q,0 
; INK 1 ; "F " ; AT Q,31;"F": 
NEXT Q 

1010 PRINT AT 6,1; INK 0; 

INVERSE 1; "############### 
################" ;AT 10,0;" 
#{SG8}##{SG8}#{SG8}##{ SG8 } # 
{SG8 }############# ####{SG8} 
# " ; AT 14,1;"###{SG8}#### 
{SG8}#{SG8 }################ 
# {SG8 } # # " ; AT 18,0;"#### 
{SG8}##{SG8}###{SG8 }####### 
##########{SG8}#" 

1020 PRINT AT 11,0; OVER 1; 

INK 2;" 

1030 FOR Q=7 TO 8: PRINT AT Q,31 
; OVER 1; INK 2;"}";AT Q+8, 
31;"}": NEXT Q 

1040 PRINT AT 19,0; PAPER 4;"@'" 

ii 0ii i n 0n 

1050 INK 1:: PRINT AT 1,2;" 

ii 

1060 PRINT AT 4,26;"F";AT 5,26;" 

F " ; AT 4,1; "F" ; AT 5 , 1 ; "F " 
1070 FOR Q=0 TO 3: PRINT AT Q,l; 
"F" ;AT Q, 9 ; "F" ; AT Q,14;"F"; 
AT Q , 26 ; "F" : NEXT Q 

1080 PRINT AT 0,9; FLASH 1;"AIUT 
O! " 

1090 PRINT AT 3,9; INK 0; 

INVERSE 1 ;"######"; AT 1,15 
; INK 1 ; " { 11SG3 } " 

1100 PRINT AT 1,11; "P" ; AT 2,11;" 
Q" 

1110 INK 1 


1120 PRINT AT 3,29;"{G5}{G3} 

{SG5 } " ; AT 4,29;"{G5} {SG5} " 

; AT 5,29;"{G5} {SG5} " ; 

INK 6 ; AT 0 , 30 ; " | " ; AT 1,30; 
" | " ; AT 2,30;" | " 

1130 INK 0: PRINT AT 2,20;"B"; 

AT 3,19; "A{SG8 }C" ; AT 4,20;" 
{ SG8 } " ; AT 5,19;"D E" 

1140 INK 3: BRIGHT 1: PRINT AT 6 
, 13 ; " + " ; AT 6,27;"+";AT 10,1 
3; "+";AT 10,27;"+"; AT 14,13 
; "+" ; AT 14,27;"+" ; AT 18,13; 
"+" ; AT 18,27;"+" 

1150 BRIGHT 0: INK 0 
1160 RETURN 

1170 SAVE "KING-KONG" LINE 10 
1180 FOR A=144 TO 161 
1190 FOR U=0 TO 7 
1200 READ I 

1210 POKE USR (CHR$ A)+U,I 

1220 NEXT U 

1230 NEXT A 

1240 DATA 0,0,16,8,7,31,7,24,126 

,219,219,255,27,103,195,126 
,0,248,252,252,28,60,20,16, 
31,127,127,112,60,30,6,60 
1250 DATA 254,254,254,2,2,0,0,0, 

66.66.66.126.66.66.66.66.56 
,40,16,254,186,186,40,108,2 
4,29,10,60,88,30,98,65 

1260 DATA 48,58,20,24,24,4,56,0, 
12,72,40,24,24,32,28,0,24,1 
84,80,60,58,120,70,130,153, 
189,153,255,60,60,102,195 
1270 DATA 0,34,119,127,62,28,8,8 
,28,28,40,0,28,28,32,0,0,0, 
0,0,16,97,221,255,129,153,1 
89,189,153,255,24,24,24,60, 
60,126,126,255,255,219 
1280 DATA 56,66,129,165,165,129, 

66.56 

1290 SAVE "GRAFICA" CODE USR "A", 
18*8 


Spedite 

i vostri programmi 
migliori a: 
SUPERSINC 
Via Rosellina 12 
20124 Milano 
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Ovvero, come realizzarsi in casa il 
proprio «Pac»... 


I l gioco, una versione del classico 
di tutte le sale giochi, coinvolge 
un piccolo esserino affamato di punti- 
ni, inseguito da due fantasmi affamati 
di lui. Ai quattro angoli del labirinto, 
per fortuna, ci sono le famose pillole di 
energia che permetteranno al nostro 
eroe di mettersi alla caccia dei fanta- 
smi: ma in fretta! L’effetto delle pillole 
è infatti limitato, e da un momento 
all’altro i mostri potrebbero rivolgerrsi 
nuovamente contro di lui. L’effetto del- 
le pillole è reso evidente dal cambia- 
mento di colore dei fantasmi, che di- 
ventano verdi e lampeggianti. Di tanto 
in tanto apparirà una ciliegia, proprio 
sotto la tana dei mostri: mangiata, da- 
rà 10 punti. Ogni puntino, invece, vale 
un punto mentre le pillole e i mostri 
fruttano 10 punti ciascuno. Realizzare 
punteggi elevati è semplicissimo: ba- 
sta sopravvivere abbastanza! 


Descrizione delie variabili 

S 

punteggio 

hs 

punteggio record 

t 

punteggio corrispondente ad uno schermo completo 

b$ 

il labirinto 

cont 

se è meno di 30 i mostri possono essere mangiati 

vite 

il numero di vite rimaste 

x, y 

la vostra posizione 

a$ 

la vostra immagine 

gx, gy 

la posizione del primo fantasma 

gxl, gyl 

la posizione del secondo fantasma 

c 

se è -1 i mostri fuggono da voi, se è 1 vi cercano 

d$ 

ciò che c’è sotto il primo fantasma 

e$ 

ciò che c’è sotto il secondo fantasma 

a 

livello di gioco 

n 

viene usata per vari scopi 

Descrizione del programma 

Linee 

Commento 

1-2 

crea i caratteri grafici 

3-4 

inizializza alcune variabili 

10-50 

i dati per la grafica 

60-260 

crea in b$ il labirinto 

270 

disegna il labirinto 

280-290 

inizializza altre variabili 

295 

stampa il punteggio record 

300-320 

visualizza voi e i fantasmi 

330 

decide se visualizzare la ciliegia 

340-370 

legge la tastiera e va alla subroutine corrispondente 

375 

stampa il punteggio 

380-400 

controlla cosa c’è nella vostra posizione, e aumenta il 
punteggio di conseguenza 

410 

visualizza il vostro personaggio 

415 

se lo schermo è stato completato va alla linea 5000 

420 

visualizza ciò che era sotto i fantasmi 

425-490 

muove in maniera appropriata i fantasmi 

500 

incrementa cont 

510-535 

visualizza i fantasmi, in verde lampeggiante se cont è 
minore di 30, o ciano e magenta se è maggiore 

540-545 

se occupate la medesima posizione di un fantasma va 
alla linea 9000 

550 

aggiorna d$ e$ 

1000-1030 

visualizza la ciliegia 

1500-1540 

muove il vostro personaggio verso destra 

1600-1640 

muove il vostro personaggio verso sinistra 

1700-1730 

muove il vostro personaggio verso l’alto 

1800-1830 

muove il vostro personaggio verso il basso 

2000-2050 

se mangiate una pillola di energia le variabili vengono 
aggiornate di conseguenza 

5000-5070 

routine grafica fra uno schermo e l’altro 

7000-7090 

seleziona il livello di gioco 

8010-9000 

avete mangiato un fantasma 

9000-9030 

siete stati mangiati, e le variabili vengono aggiornate di 
conseguenza 

9500-9530 

la partita è finita, e le variabili vengono preparate per la 
partita successiva 
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Chomp Chomp 

versione per ZX Spectrum 16K/48K 


1 RESTORE 0: FOR a=144 TO 164 

2 FOR b=0 TO 7: READ c: 

POKE USR CHR$ a+b,c: 

NEXT b: NEXT a 

3 LET s=0 : LET hs=0: LET t=18 
0: DIM b$ ( 21 f 21) : LET cont= 
30 

4 LET vite=3 

5 GO SUB 7000 

10 DATA 0,255,0,0,0,0,0,0,0,0, 
0,0,0,0,255,0,0,255,0,0,0,0 
,255,0,0,248,4,2,2,2,2,2 
20 DATA 0,31,32,64,64,64,64,64 
,0,63,64,128,128,64,63,0,0, 
252,2,1,1,2,252,0 
30 DATA 2,2,2,2,2,4,248,0,64,6 

4.64.64.64.32.31.0. 2.2.2.2, 
2, 2, 2, 2 

40 DATA 0,24,36,66,66,66,66,66 
,66,66,66,66,66,36,24,0,64, 
64,64,64,64,64,64,64,66,66, 

66.66.66.66.66.66.0. 0.16.56 
,124,56,16,0 

50 DATA 24,60,30,15,30,60,24,0 
,0,0,34,119,127,62,28,8,0,2 
4,60,120,240,120,60,24,16,5 

6.124.254.238.68.0. 0.56.126 
,90,219,255,255,255,147,2,6 
,10,20,36,68,238,68 

55 PAPER 1: BORDER 1: CLS : 

INK 7: PAPER 0 

60 LET b$ (1) = " EAAAAAAAAANAAAAA 
AAAAD " 

70 LET b$ (2) = "M N 

J" 

80 LET b$ (3) = "M . EAD . EAD . N . EAD . 
E AD. J" 

90 LET b$ (4) ="MOM J.M J.N.M J. 
M JOJ" 

100 LET b$ (5) ="M. IBH . IBH .L. IBH . 
IBH . J" 

110 LET b$ (6) = "M 

. . . . J" 

120 LET b$ (7) ="M.FCG.K.FCACG.K. 
FCG. J" 

130 LET b$ ( 8) ="M N. . .N. . .N. 

. . . . J" 

140 LET b$ ( 9 ) = " I BBBB . MCG . L . FC J . 
BBBBH" 

150 LET b$ (10) =" J.N N 


160 LET b$ (11) =" BBBBH. L.E D.L 

. IBBBB" 

170 LET b$ (12) ="/ M J.. 

V “ 

180 LET b$ (13) = "AAAAD. K. I H.K 

. EAAAA" 

190 LET b$ ( 14) = " J.N N 

.M " 

200 LET b$ (15) ="BBBBH.L. FCACG.L 
. IBBBB" 

210 LET b$ (16) = "M N 

J" 

220 LET b$ (17) = "MOFCD . FCG . L . FCG 
. ECGOJ" 

230 LET b$ (18) ="M. . .N 

.N. . . J" 

240 LET b$ (19) ="AAD. L. FCCCCCCCG 
.L.EAA" 

250 LET b$ (20) =" J 

...M " 

260 LET b$(21)=" AAAAAAAAAAAA 
AAA " 

270 FOR n=l TO 21: PRINT AT n , 1 
;b$ (n) : BEEP .05,n+15: 

NEXT n 

280 LET y=14 : LET x=12: LET a$= 
"R" 

290 LET gx=12: LET gy=12: LET g 
xl=12 : LET gyl=ll : LET c=l: 
LET d$ = " LET e$=" " 

295 PRINT AT 0,19; "RECORD =";hs 

300 PRINT AT gx,gy; INK 3;"T" 
310 PRINT AT gxl ,gyl; INK 57"T" 


320 

PRINT AT y,x; 

INK 6 

;a$ 

330 

IF INT (RND*100) =0 
GO SUB 1000 

THEN 

340 

IF INKEY$ = " 8 " 
GO SUB 1500 

THEN 


350 

IF INKEY$="5" 
GO SUB 1600 

THEN 


360 

IF INKEY$="7" 
GO SUB 1700 

THEN 


370 

IF INKEY$ = " 6 " 
GO SUB 1800 

THEN 


380 

IF b$ (y,x) ="." 
s+1: BEEP .05, 

THEN 

25 

LET S = 

390 

IF b$(y,x)="0" 

THEN 

LET S = 


s+10: BEEP .1, 

25: BEEP .1,3 


9: GO SUB 2000 

400 IF b$(y,x)="U" THEN LET s= 
s+10 : LET t=t+10 : BEEP .1,2 
8: BEEP .1,36 

401 PRINT AT 0,0; "VITE =";vite; 
" PUNTI = " ; s 

405 LET b$ (y ,x) =" " 
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410 PRINT AT y , x ; INK 6;a$ 

415 IF s=t THEN GO TO 5000 
420 PRINT AT gx,gy;d$;AT gxl,gy 
1 ; e$ 

425 IF RND<a THEN GO TO 440 
430 IF gy<x THEN LET d=CODE b$ 
(gx,gy+c): IF d<>47 AND d 
092 AND d< 144 OR d>157 
THEN LET gy=gy+c: GO TO 4 
70 

435 IF RND<a THEN GO TO 450 
440 IF gy>x THEN LET d=CODE b$ 
(gx,gy-c) : IF d<>47 AND d 
092 AND d< 144 OR d>157 
then let gy=gy-c: GO TO 4 
70 

445 IF RND<a THEN GO TO 460 
450 IF gx<y THEN LET d=CODE b$ 
(gx+c,gy): IF d<>47 AND d 
092 AND d< 144 OR d>157 
THEN LET gx=gx+c: GO TO 4 
70 

455 IF RND<a THEN GO TO 470 
460 IF gx>y THEN LET d=CODE b$ 
(gx-c,gy): IF d<>47 AND d 
092 AND d< 144 OR d>157 
THEN LET gx=gx-c 
465 IF RND<a THEN GO TO 475 
470 IF gyl<x THEN LET d=CODE b 
$ (gxl ,gyl+c) : IF d<>47 
AND d<>92 AND d<144 OR d 
>157 THEN LET gyl=gyl+c: 

GO TO 500 

472 IF RND<a THEN GO TO 480 
475 IF gyl>x THEN LET d=CODE b 
$ (gxl,gyl-c) : IF d<>47 
AND d<>92 AND d<144 OR d 
>157 THEN LET gyl=gyl-c: 

GO TO 500 

477 IF RND<a THEN GO TO 490 
480 IF gxl<y THEN LET d=CODE b 
$ (gxl+c ,gyl) : IF d<>47 
AND d<>92 AND d<144 OR d 
>157 THEN LET gxl=gxl+c: 

GO TO 500 

485 IF RND<a THEN GO TO 500 
490 IF gxl>y THEN LET d=CODE b 
$ (gxl-c ,gyl) : IF d<>47 
AND d<>92 AND d<144 OR d 
>157 THEN LET gxl=gxl-c 
500 LET cont=cont+l 
510 IF cont>=30 THEN LET c=l 
520 IF c=-l THEN PRINT AT gx,g 
y; INK 4; FLASH 1 ; "T" 

525 IF c=l THEN PRINT AT gx,gy 
; INK 3 ; "T" 


530 IF c=-l THEN PRINT AT gxl, 
gyl ; INK 4; FLASH 1;"T" 

535 IF c=l THEN PRINT AT gxl,g 
yl; INK 5 ; "T" 

540 IF gx=y AND gy=x THEN 
GO TO 9000 

545 IF gxl=y AND gyl=x THEN 
GO TO 9000 

550 FLASH 0: LET d$=b$ (gx , gy ) : 
LET e$=b$ (gxl, gyl) : 

GO TO 330 

1000 IF b$ (14, 11) ="U" THEN 
RETURN 

1010 PRINT AT 14,11; INK 2 ; "U " : 

BEEP .5,15: IF b$ (14,11) =" 
. " THEN LET t=t-l 
1020 LET b$ (14,11) = "U" 

1030 RETURN 

1500 PRINT AT y,x;" " 

1505 IF b$ (y,x+l) THEN 
LET x=x+l : GO TO 1530 
1510 IF b$(y,x+l)=" " THEN 
LET x=x+l: GO TO 1530 
1520 IF b$ (y , x+1) = "U" THEN 
LET x-=x+l 

1525 IF b$ (y , x+1) ="\" THEN 
LET x=2 

1530 LET a$="R" 

1540 RETURN 

1600 PRINT AT y,x;" " 

1605 IF b$ (y,x-l) THEN 
LET x-x-1: GO TO 1630 
1610 IF b$ (y ,x-l) =" " THEN 
LET x=x- 1 : GO TO 1630 
1615 IF b$ (y ,x-l) ="0" THEN 
LET x=x-l: GO TO 1630 
1620 IF b$ (y ,x- 1) ="/" THEN 
LET x=20 : GO TO 1630 
1625 IF b$ (y,x-l) ="U" THEN 
LET x=x- 1 
1630 LET a$="P" 

1640 RETURN 

1700 PRINT AT y,x;" " 

1705 IF b$ (y-l,x) THEN 
LET y=y- 1 : GO TO 1725 
1710 IF b$ (y-l,x) =" " THEN 
LET y=y- 1 : GO TO 1725 
1720 IF b$ (y-l,x) ="0" THEN 
LET y=y-l: GO TO 1725 
1725 LET a$="Q" 

1730 RETURN 

1800 PRINT AT y,x;" " 

1805 IF b$ (y+l,x) =" . " THEN 
LET y=y+l : GO TO 1825 
1810 IF b$ (y+l,x) ="0" THEN 
LET y=y+l : GO TO 1825 
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1815 

IF b$ (y+l,x) 

_ Il II 

THEN 


let y=y+l 



1825 

LET a $ = " S " 



1830 

RETURN 



2000 

LET c = - 1 



2010 

LET b$ (y,x) = 

, Il II 


2020 

PRINT AT y,x 

:;a$ 


2030 

LET t=t+10 



2040 

LET cont=0 



2050 

RETURN 



3000 

IF y>d THEN 

LET 

d=d+g 

3010 

IF x > f THEN 

LET 

f=f+h 

3020 

IF x< f THEN 

LET 

f =f-h 

3030 

IF x<d THEN 

LET 

d=d-g 

3040 

RETURN 



4010 

LET d=gx: LET f=gy: 


RETURN 



4020 

LET d=gxl : LET f= 

i— H 
>1 
Cn 

4030 

RETURN 



5000 

CLS : PRINT 

AT 10 

',31;"< 

5010 

FOR n=l TO 27 


5020 

PRINT AT 10, 

n; INK 5;" 


; INK 7 ; "R" 



5030 

BEEP .05,n: 

NEXT 

n 

5040 

FOR n=27 TO 

1 STEP -1: 


PRINT AT 10, n; FLASH 1; 

INK 4 ; "T" ; FLASH 0; INK 7; 

M p ii 


5050 BEEP . 05 , n : NEXT n 

5060 LET t= t+180 

5070 GO TO 60 

6010 LET gx=d : LET gy=f: 

RETURN 

6020 LET gxl=d: LET gyl=f: 

RETURN 

7000 PRINT AT 0,10;"CHOMP CHOMP" 
; TAB 9;"{G1}{11G3}{G2}" 

7010 PRINT AT 9,0; " AAAAAAAAAAAAA 
A AAAAA AAAAA A AAAAAAA " 

7020 PRINT AT 11, 4; "SCEGLI IL LI 
VELLO (1-5) " 

7030 PRINT TAB 5;." (5 e' il piu' 
facile) " 

7040 PRINT AT 1 4 , 0 ; " A AAAAAAA AAAA 
A AAAAAAAAAAAAA AAAAA A " 

7060 LET a=CODE INKEY$-49 
7070 IF a>5 OR a<0 THEN GO TO 7 
060 

7080 LET a=a+l : LET a=a/10 
7090 RETURN 

8000 IF gy=x AND gx=y THEN 

LET s = s+10 : LET t=t+10 : 

LET gy=12: LET gx=12: 

BEEP .05,20: BEEP .05,10: 

BEEP .1,10: GO TO 550 


8010 IF gyl=x AND gxl=y THEN 

LET s=s+10 : LET t=t+10 : 

LET gyl=ll : LET gxl=12: 

BEEP .05,20: BEEP .05,10: 

BEEP .1,10: GO TO 550 
9000 IF cont<=30 THEN GO TO 800 
0 

9005 LET vite=vite-l 

9010 PRINT AT y,x; FLASH l;a$: 

FOR n=50 TO 0 STEP -1: 

BEEP . 05,n: NEXT n 
9020 IF vite<=0 THEN GO TO 9500 

9030 GO TO 270 
9500 IF hs<s THEN LET hs=S 
9510 PRINT AT 8 , 10 ; "PREMI " ; AT 10 
, 0 ; "UN TASTO PER RICOMINCIA 
RE" 

9520 IF INKEY$=" " THEN GO TO 95 
20 

9530 PAPER 1: LET s=0: CLS : 

PAPER 0: LET t=180 : LET vi 
te=3 : GO TO 60 
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a cura di 

Lucio Bragagnolo 


Stonkers 

Avete mai affrontato in 

campo aperto il vostro computer? 


Si tratta di un tipico boardgame (una 
simulazione militare a tavolino) adatta- 
to per lo Spectrum 48K. Lo scopo del 
gioco è quello di sconfiggere il compu- 
ter distruggendo le sue truppe o pene- 
trando nel suo quartier generale. Ciò 
avviene individuando su una mappa a 
piccola scala la zona delle operazioni, 
per poi ingrandire la stessa e muovere 
le proprie unità (divisioni corazzate, 
fanteria e artiglieria) come si desidera. 
Contemporaneamente il calcolatore 
svilupperà la sua strategia e gestirà gli 
scontri tra le unità nemiche in contat- 
to. Mon è finita qui, però: le nostre 
truppe hanno necessità di essere rifor- 
nite, e dovremo provvedere alla biso- 
gna con quattro unità addette, a cui fa- 
remo fare spola tra le unità combatten- 
ti e il porto a cui periodicamente at- 
traccano mercantili inviati dallo Spec- 
trum. È ovviamente possibile in ogni 
momento avere la situazione del no- 
stro esercito per sapere dove i riforni- 
menti sono più urgenti, così come pos- 
siamo conoscere la situazione logisti- 
ca di ogni singola unità; per ottenere il 
massimo risultato occorre però saper 
utilizzare i dati a propria disposizione 
per ottimizzare spostamenti e tempi di 
decisione — come dire avere attitudi- 
ne al comando... 

L’unico limite (relativo) di questo gio- 
co è la velocità di svolgimento: ma è 
già sorprendente vedere una “scatolet- 
ta” come lo Spectrum gestire un pro- 
gramma del genere! Comunque, dopo 
un paio di minuti al massimo (in cui, di 
solito, tutti spostano le proprie armate 
con presunzione quasi hitleriana e pia- 
ni a lunghissimo respiro) vi sono già 
decisioni cruciali da prendere, la situa- 
zione rifornimenti si fa assillante. In 
mancanza di una strategia efficace, si 
finirà per assistere senza possibilità di 
reazione alla distruzione totale delle 


nostre unità, impotenti di fronte alla 
supremazia avversaria. Per quando poi 
si saranno affinate strategie e tattiche, 
il programma saprà ancora metterci in 
difficoltà, grazie a un secondo livello 
di gioco, naturalmente più impegnati- 
vo. In conclusione, per chi ama i giochi 


STN 


FOR 


ANY 
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intelligenti (o è stufo del solito spara-e- 
fuggi e desidera provare qualcosa di 
più stimolante), ci troviamo di fronte a 
un gioco che vale senz’altro la pena di 
provare. 



Alchemist 


Una avventura sotterranea dalla 
mille sorprese 

Si potrebbe definire una adventure ani- 
mata. Siamo nelle vesti di un mago, 
capace di trasformarsi in aquila all’oc- 
correnza, ed esploriamo le camere del 



sotterraneo aH’interno del quale ordi- 
sce le sue perfide trame il maligno 
Warlock. Il nostro compito è quello di 
trovare le quattro parti di un potentis- 
simo incantesimo di distruzione e di 
utilizzarlo contro il nostro mortale ne- 
mico. Nelle varie camere del sotterra- 
neo troveremo incantesimi di minore 
potenza ma indispensabili, armi, og- 
getti vari (spesso solo apparentemente 
fini a sè stessi, ma... non possiamo dire 
di più!) trappole, nutrimento e... le 
guardie di Warlock; massi rotanti, for- 
miche, nubi magiche, teschi volanti — 
ed è solo l’inizio. Anche un mago, pe- 
rò, può avere dei problemi: questi so- 
no costituiti dalla forza magica (che 
cresce col passare del tempo, ma dimi- 
nuisce con l’uso) e la forza fisica (che 
decresce costantemente e ci costringe 
a cercare nutrimento... o altro...). Inol- 



tre, non è possibile portare con sè nel- 
lo stesso momento più di un incantesi- 
mo e un oggetto — o un’arma. 

La grafica è perfetta e il gioco, fin dalla 
(bellissima) sigla iniziale contiene tutti 
gli ingredienti per avvincere fin 
dall’inizio e creare seri grattacapi per 
trovare... la fine! Dimenticavamo: il 
gioco necessita di 48K RAM. 




ALCHEMIST 
(cod. DIGMS03) 
e STONKERS 
(cod. DIGMS06) 
sono in vendita presso: 

TECHNOCLUB via 
Rosellini, 12 
20124 Milano 
a L. 13.000 cad. più 
L. 2.000 per spese di 
spedizione. I programmi 
possono essere ordinati 
utilizzando il coupon 
pubblicato a pag. 66. 
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Easv Programmino 
for ilio 

IX SPECTRUM 

lan Stpvvarf and 
Robin inora 


Insomma, un libro, anzi, un comple- 
mento al manuale veramente alla por- 
tata di tutti e che fornisce la possibilità 
di compiere un salto di qualità come 
programmatore... o forse, in omaggio 
all’ultimo nato di casa Sinclair, do- 
vremmo dire un Quantum Leap! 


a cura di 

Lucio Bragagnolo 


Programmazione dello ZX 
Spectrum 

Tim Hartnell 

prefazione a cura di Clive Sinclair 
ed. Gruppo Editoriale Jackson 
L. 18.000 


Preso in mano il libro, la prima cosa 
che ha suscitato la nostra curiosità è 
stata ovviamente la prefazione, di Cli- 
ve Sinclair in persona; ci chiedevamo 
che cosa avesse spinto il creatore dello 
Spectrum ad appoggiare con il suo no- 
me questo testo, apparentemente uno 
degli ormai tanti in circolazione e, so- 
prattutto, cosa avesse da dirci. Dobbia- 
mo confessare che, dopo aver ritenuto 
il suo breve scritto un po’ sbilanciato 
(vedi affermazioni tipo “Questo libro... 
vi aiuta a raggiungere una abilità di 
programmazione che, senza il suo aiu- 
to, potrebbe richiedere anni per essere 
acquisita”), in seguito alla lettura ci 
siamo dovuti ricredere. Effettivamente 
sir Sinclair ha ragione: questo non è un 
libro come gli altri, o per lo meno non 
è come gli altri libri, bensì trattasi di — 
citiamo testualmente — “un utile com- 
plemento al manuale fornito con lo 


Spectrum”, in grado di rivolgersi al 
programmatore in erba come a sinclai- 
risti esperti che desiderassero aumen- 
tare le loro conoscenze. 

Basta, per convincersene, dare un’oc- 
chiata al sommario: accanto ad argo- 
menti “normali” (Esploriamo il colore 
dello Spectrum, Giocare con lo Spec- 
trum), si possono vedere trattati temi 
piuttosto insoliti come “Usare lo Spec- 
trum in affari”, “Usare lo Spectrum a 
scuola” o “Grafica tridimensionale”, 
capitoli in genere riservati a pubblica- 
zioni specifiche. Evidentemente, non 
era possibile parlare diffusamente di 
tutte le applicazioni possibili di un cal- 
colatore, per cui l’autore (il noto Tim 
Hartnell) ha dovuto forzatamente effet- 
tuare una scelta di argomenti e lavora- 
re di sintesi: il tutto, però, senza rinun- 
ciare ad un approccio estremamente 
rigoroso con le materie trattate e ad 
una chiarezza e linearità di linguaggio 
esemplari. 

In ogni capitolo si parte da considera- 
zioni di carattere generale e alla porta- 
ta del neofita più ingenuo, per arrivare 
progressivamente alla stesura di uno o 
più programmi inerenti al tema. Que- 
sti ultimi vengono dapprima scritti nel- 
la maniera più sintetica possibile, per 
poi venire arricchiti passo dopo passo 
da messaggi di input, opzioni partico- 
lari, commenti dettagliati e tutte le 
possibilità grafiche e sonore a disposi- 
zione dello Spectrum. Il lettore si trova 
così a disporre di una serie di program- 
mi — da grafici a didattici, dai giochi 
alla piccola contabilità — di buona ef- 
ficacia e semplicità, spesso collegabili 
con minima fatica ottenendo risultati a 
volte davvero sorprendenti: valgono 
per tutti come esempi il capitolo “affa- 
ri”, dove si arriva alla fine disponendo 
di un potenziale “pico-multiplan” do- 
mestico, o le pagine dedicate al sono- 
ro, dove potreste avere qualche picco- 
la inaspettata sorpresa, o la trattazione 
dell’istruzione INK 9 nella parte grafica 
... troverete, alla fine, dopo il capitolo 
dedicato al linguaggio macchina, per- 
fino una piccola storia dei calcolatori e 
una utile tabellina delle specifiche del- 
lo Spectrum. 


Ian Stewart/Robin Jones 

ed.Shiva Publishing ltd. 
prezzo medio di vendita L. 16.900 


Nell’introduzione gli autori precisano 
come scopo di questo libro il “descri- 
vere le possibilità dello Spectrum che 
un neoutente dovrebbe conoscere”. E, 
sebbene questo sia solamente il primo 
di una serie di tre volumi (completata 
da “Further Programming for thè ZX 
Spectrum” — programmazione avan- 
zata per lo Spectrum — e “Spectrum 
Machine Code”, il linguaggio macchi- 
na dello Spectrum) il materiale messo 
a disposizione dei lettori supera ugual- 
mente di gran lunga i semplici bisogni 
primari degli acquirenti dell’ultima ora 
per soddisfare anche i programmatori 
medio-scarsi desiderosi di progredire. 
Il libro infatti comprende ben 26 capi- 
toli, dal ritmo serratissimo, più una 
trentina di programmi pronti all’uso 
comprendenti il software gradualmen- 
te sviluppato negli esempi e alcune 
routine di varia utilità. 


Easy programming for thè 
ZX Spectrum 
(programmazione facile 
per lo Spectrum) 
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OFFERTISSIMA - EXELCO - 


La EXELCO vi propone due vantaggiosissime combinazioni COMMODORE 

Affrettatevi è un’OFFERTA irrepetibile!!! 





n° 1 COMMODORE C64 L. 699.500 

n° 1 Registratore «MAXTRON» L. 82.000 

n° 1 Libro «C64 EXPOSED» L. 24.000 

n° 1 Libro «Impariamo 

ad usare il personal computer L. 25.000 

n° 1 Cassetta Software 

«Garden Wars» della JCE L. 20.000 

Totale L. 


A SOLE L 750.000 ?> 

IVA INCLUSA 1^ 


Combinazione n° 2 


n° 1 COMMODORE VIC 20 


n° 1 Libro «Impariamo 

ad usare il personal computer 
n° 1 Cassetta Software 


L. 149.000 
L. 31.000 


n 


«ADVENTURELAND» 

° 1 Cassetta Software 

«RIDE ON FORT KNOX» 


Totale 


L. 

L. 

L. 

L. 


25.000 

49.000 
49.000 


iTl A SOLE L 258.000 

IVA INCLUSA 





Descrizione 

Q.tà 

Prezzo 

unitario 

Prezzo 

Totale 

COMBINAZIONE 1: 

n° 1 COMMODORE C64 
n° 1 Registratore «MAXTRON» 
n° 1 Libro «C64 EXPOSED» 
n° 1 Libro «Impariamo 
ad usare il personal computer» 
n° 1 Cassetta Software 
«Garden Wars» JCE 


L. 750.000 


COMBINAZIONE 2: 

n° 1 COMMODRE VIC 20 
n° 1 JOYSTIC «TRIGA" 
n° 1 Libro «Impariamo 

ad usare il personal computer» 
n° 1 Cassetta Software 
«ADVENTURELAND» 
n° 1 Cassetta Software 

«RIDE ON FORT KNOX» 


L. 258.000 



Desidero ricevere il materiale indicato nella tabella, a mezzo pacco postale 
contro assegno, al seguente indirizzo: 


Nome 
Cognome 
Via 
Città 
Data 


□ ma 

Desidero ricevere la fattura | SI | 

Partita I.V.A. o, per i privati Codice Fiscale 


C.A.P. 


NO 


PAGAMENTO: 

A) Anticipato, mediante assegno circolare o vaglia postale per l'importo totale 
dell'ordinazione. 

B) Contro assegno, in questo caso, è indispensabile versare l'acconto di Lire 50.000 
mediante assegno circolare o vaglia postale. Il saldo sarà regolato contro assegno. 

AGGIUNGERE: L. 5.000 per contributo fisso. I prezzi sono comprensivi di I.V.A. 


I 

'EXELCO 


Via G. Verdi, 23/25 

20095 • CUSANO MILANINO • Milano 


NON PERDETE QUESTE OCCASIONI!!! 


SI ACCETTANO FOTOCOPIE DI QUESTO MODULO D’ORDINE 



Sono interessanti, tra le altre cose, ben 
5 capitoli dedicati all’impostazione ed 
esecuzione di un corretto e funzionale 
debugging, che potranno risultare 
molto utili specie agli autodidatti tutto 
genio e sregolatezza, sempre in diffi- 
coltà quando si tratta di “ripulire” e da- 
re organicità alle loro (in genere) disor- 
dinatissime anche se spesso brillantis- 
sime creazioni. Quanto poi alle “chic- 
che”, segnaliamo il capitolo “Plotting” 
dedicato in gran parte al filling di figu- 
re chiuse — soprattutto circolari, le più 
ostiche — in grado di far risparmiare 
discrete quantità di tempo nel tentati- 
vo di risolvere il problema, “Curve 
plotting”, un’esauriente e finalmente 
chiara guida alla rappresentazione gra- 
fica di funzioni (contenente tra l’altro i 
suggerimenti per modificare la scala di 
rappresentazione e un ampio set di 
funzioni già pronte per chi odia la tri- 
gonometria) e il capitolo “Peek and 
Poke”, di introduzione ai primi rudi- 
menti del linguaggio macchina. Gli al- 
tri capitoli, chi più chi meno, trattano 
le varie feature dello Spectrum con un 
impostazione di tipo manualista, me- 
todica nell’esposizione e facente largo 


uso di esercizi ed esempi. Anche se in 
lingua originale, la comprensione del 
tutto non risulta particolarmente diffi- 
cile, sia per l’inglese semplice utilizza- 
to sia per la chiarezza di spiegazioni ed 
esempi. A volte la trattazione assume 
un ritmo piuttosto spedito che, gli au- 
tori hanno cercato di spezzare cercan- 
do di scrivere in uno stile colloquiale 
brillante e inserendo qua e là diverse 
vignette (queste, ahimè, un pò meno 
brillanti). 

Anche se alcuni argomenti non vengo- 
no trattati o sono solo accennati (fun- 


zioni trigonometriche, definizione di 
funzioni proprie, INVERSE VIDEO e 
TRCJE VIDEO, l’istruzione CJSR e altri, 
cosa del resto sinceramente ammessa 
dagli autori stessi), si potrebbe consi- 
derare questo libro come una 
“summa” per il programmatore agli 
inizi. Per i già decisi all’acquisto, un 
piccolo consiglio: non lasciatevi porta- 
re in un attimo alla fine, trascinati dai 
brevissimi capitoli e dal gran numero 
di argomenti, ma leggete lentamente, 
meditandoci sopra ed esercitandovi 
con calma e senza fretta sul vostro Sin- 
clair, seguendo esempi ed esercizi; so- 
lo così facendo potrete far rendere al 
massimo le lirette che avete speso. 


I libri recensiti possono 
essere ordinati 
utilizzando il coupon a 
pag. 66 


Nel prossimo numero 



ZX81 /Spectrum add-on: 

come e dove procurarsi ogni genere di 

accessorio per il vostro Sinclair 



Le interruzioni, parte seconda 

Nei meandri dello Spectrum: un’esplorazione 

all’ultimo bit 


REM:HW 


Cubo 2D • Bollettino vendite • 
Occhio alla frana • Attacco nucleare • 
(i vostri programmi!) 


I contributi dei Club Sinclair 


...e altro ancora! 

Non perdete il numero 2 di SUPERSINC 
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N on appena passata l’onda di entu- 
siasmo susseguente all’acquisto 
del calcolatore per tanto tempo ago- 
gnato e terminata la fase di frenetico 
furore crativo con cui il neofita affron- 
ta i primi passi della sua avventura di 
utente di computer, subentra in genere 
la fase del “collegamento”: ovverosia, 
una volta presa conoscenza dei propri, 
si spera provvisori, limiti di program- 
mazione — e completato il saccheggio 
del software in vendita nel negozio sot- 
to casa — si avverte l’esigenza di poter 
parlare con qualcuno che ne capisca 
un po’ di più (e che conosca magari ri- 
venditori più forniti e meno cari...). 
Purtroppo nella maggior parte dei casi 
gli amici propri o dei figli esauriscono 
assai in fretta le loro capacità di consu- 
lenza, rendendo necessario il rivolgersi 
a sconosciuti, con tutte le incognite 
del caso. Fortunatamente sembra es- 
sere una caratteristica tipica dei sin- 
clairisti quello di essere maggiormente 
disposti, rispetto agli utenti di altre 



marche, a realizzare collegamenti riu- 
nendosi in associazioni e gruppi più o 
meno informali per trovare “amici di 
tastiera” (come direbbe Charlie Brown) 
con cui scambiare programmi, espe- 
rienze e notizie attraverso canali che 
spesso finiscono per far nascere auten- 
tiche amicizie anche fuori daH’ambito 
strettamente informatico. 

La forma più appariscente — e concre- 
ta — di questo spirito di apertura verso 
l’esterno è sicuramente il Sinclair 
Club, tipo di organizzazione che sotto 
le più svariate denominazioni si occu- 
pa di mantenere i contatti tra gli ade- 
renti, sviluppare software e hardware 
per tutti gli usi, acquistare e mettere a 


disposizione dei soci materiale spesso 
a prezzi scontati e sviluppare iniziative 
di tutti i generi secondo le proprie idee 
e possibilità costituendo un punto di 
riferimento insostituibile, specie in zo- 
ne carenti di rivenditori aggiornati e di 
informazione. 

Cosciente deH’importanza di questo fe- 
nomeno, SCIPERSINC intende riserva- 
re ogni mese queste pagine a tutti i 
club sparsi per l’Italia pubblicandone 
notizie e iniziative, programmi e pro- 
getti hardware, ogni cosa che possa ri- 
sultare interessante e meritevole di 
menzione. A tale scopo chiediamo la 
collaborazione dei club di ogni ordine 
e grado: mettetevi in contatto con SCJ- 
PERSINC e forniteci notiziari, bolletti- 
ni e ogni altro segno della vostra attivi- 
tà; saremo felicissimi di pubblicarlo 
(ovviamente dietro vostra autorizzazio- 
ne). 

Appuntamento quindi a tutti sulle pa- 
gine ZX CLUB! 
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NON 

UN ABBONAMENTO! 

UN SUPERABBONAMENTO 


Questo è ciò che la J .soft ti offre: un superabbonamento ad una super-rivista! 
Una eccezionale offerta di lancio: 16 numeri di SUPERSINC al prezzo 
di 10 oltre alla possibilità esclusiva di ricevere mensilmente, con la copia 
della rivista, il supporto magnetico con tutti i programmi pubblicati. 
L’offerta è valida fino al 30/6/1984. 


LE NOSTRE SUPERPROPOSTE ABBONAMENTI 

Abbonamento* a 16 numeri (5 nel 1984 + 11 nel 1985) 
di SUPERSINCal prezzo speciale di L. 35.000 
anziché L.S&eeo: 

Abbonamento* a 16 numeri di SUPERSINC + 16 cassette 
con tutti i programmi pubblicati al 
prezzo speciale di L. 75.000, anziché 


* L’abbonamento decorrerà dal prossimo numero 



Abbonarsi è semplice! Effettuate il versamento con l’apposito modulo 
c.c.p. inserito in questo fascicolo, oppure ritagliate il tagliando 
abbonamenti pubblicato in questa pagina e speditelo allegando un 

assegno intestato a: 

J.soft - Via Rosellini 12 - 20124 Milano. 


Tagliando abbonamento a SUPERSINC da inviare in busta chiusa a: 

J .soft - Via Rosellini 12 • 20124 Milano 

□ Desidero sottoscrivere un abbonamento a 16 numeri (5 nel 1984 + 11 nel 1985) di SUPERSINCal 
prezzo speciale di L. 35.000 anziché L.35&68QC 

□ Desidero sottoscrivere un abbonamento a 16 numeri (5 nel 1984 4- 1 1 nel 1985) di SUPERSINC 
+ 16 cassette con tutti i programmi pubblicati al prezzo speciale di L. 75.000 anziché L.rt 2&06QC 


cognome 

nome 


via 

città 


cap. 

provincia 

data 


firma 



Vendo Sinclair ZX 81 completo di 
alimentatore cavetti con imballo 
originale e garanzia con cassetta 
di 30 programmi e 2 libri a Lire 

120.000 trattabilissime. Vero affa- 
re!! 

Francesco Vellutini - Via Bezzecca, 
6 - 20135 Milano - Tel. 5485649. 

Sinclair club Mantova compra ven- 
de scambia programmi ZX Spec- 
trum in tutta Italia ed estero banca 
dati di oltre 700 programmi per 
qualsiasi informazione. 

Luca Gandellini * Via strada Cisa, 
95 - 46047 Bancole di Porto Man- 
tovano (MN) - Tel. 0376/398220. 

Cambio o vendo per ZX Spectrum 
200 programmi da L. 3.000 a 

5.000 senza distinzione: games, 
utility, linguaggi. Chiedere lista 
senza impegno o telefonare. 
Gianfranco Posterli - Via L. Ario- 
sto, 123 - 20099 Sesto S.G. - Tel. 
02/2480163. 

Costruisco generatore di caratteri 
per ZX 81 aggiunge 256 caratteri 
al tuo computer mi basta un dise- 
gno su carta quadrettata dei nuovi 
simboli che vuoi il prezzo va da L. 

55.000 a L. 75.000. 

Sergio Coraglia - Via Tagliamento, 
8 - 10096 Rivoli (TO) - Tel. 
011/9591904. 

Cambio, vendo programmi per ZX 
81 con 1,4,16,32,64K RAM di me- 
moria disponibili molti giochi, uti- 
lites, software aziendale e l’user 
definable graphics. Per avere diret- 
tamente e gratis la lista dattilo- 
scritta o telefonare a: 

Maurizio Marini - Via Mincio, 57 - 
52100 Arezzo. 

Scambio software per ZX 81 su li- 
stati o cassette inviatemi vostra li- 
sta che io invierò la mia. 

Paolo Paldo - Via Circonvallazio- 
ne, 30 - 20040 Cornate D’Adda - 
Tel. 039/6926260. 

Vendo, scambio od acquisto pro- 
grammi per ZX Spectrum. 

Cerco, stampante ZX Printer od al- 
tra, ad un prezzo modesto. 

Cerco, libri per ZX Spectrum. 
Marco Arzani - Via Giovanni XXIII, 
14 - 29017 Fiorenzuola D’Arda 
(PC) -Tel. 0523/982401. 

Vendo, cambio programmi per ZX 
Spectrum, scrivete chiedendomi 
lista di programmi a L. 5.000 cad. 
Francesco Avallone - Via Nicola 
Sole, 4 - 85100 Potenza - Tel. 
0973/20281. 

Per Sinclair Spectrum disponendo 
di un notevole archivio software. 
Vendo a L. 10.000 cassetta con 5 
giochi a scelta. Telefonare ore pa- 
sti. Scrivere. 

Ivano Parbuono - Via A. di Cambio, 
4 - 37138 Verona - Tel. 
045/568649. 


Cambio programmi per ZX Spec- 
trum 16-48K. Telefonare 
Roberto Polastro - C.so Tassoni, 81 

- 10143 Torino - Tel. 011/751453. 

Vendo o cambio programmi per 
Spectrum (ne possiedo un centi- 
naio circa) 16K e 48K. Scrivere per 
scambio elenco. Max serietà. 

Luca Prian - Cannaregio 1091/e - 
30121 Venezia - Tel. 041/713438. 

Per Spectrum cambio e vendo 
software. L. 5.000 al programma 
(min. 4 programmi) cassetta com- 
presa. Sono a Milano quasi tutti i 
giorni. Telefonate anche solo per 
farvi spedire l’elenco dei program- 
mi. 

Livio Scandella - Via De Amicis, 3 - 
27029 Vigevano (PV) - Tel. 
0381/72955. 

Vendo programmi (tutti LM) per 
ZX Spectrum. Ogni programma L. 

5.000 una cassetta da 90’ con 15 
giochi L. 45.000. Telefonare (ore 
pasti) o richiedete lista a: 

Alberto Bianchini - Via Val Maira, 
45 - 20162 Milano - Tel. 
02/6429360. 

Vendo causa acquisto Spectrum 
pocket computer Casio PB 100 + 
espansione (1Kbyte RAM) OR-1 + 
int. registratore FP12 + mini 
stampante FA3, tutto sole L. 

300.000. Tutto il materiale è nuo- 
vissimo usato solo 2 settimane, è 
in garanzia fino al 1985. 

Luigi Cerabolini - Via Felice Caval- 
lotti, 91 - 27011 Beigioioso (PV) - 
Tel. 0382/960816. 

Cambio centinaia di programmi 
ZX Spectrum da 16 Kbyte 48 Kby- 
te. 

Alessio Santangelo - Via Luca Gan- 
rico - 00143 Roma - Tel. 
06/5912226-5040151. 

Cambio, vendo programmi per ZX 
Spectrum. Prezzi imbattibili (min. 
L. 2.000 max L. 4.000 esc. cassetta 
e/o eventuali manuali). Scrivetemi 
per il listino. Se volete scambiare, 
mandatemi il vostro. 

Stefano Giannici - Viale Francia, 4 

- 90146 Palermo - Tel. 500190. 

Cambio software per Spectrum 16 
o 48 Kbyte dispongo di ottimo ma- 
teriale giochi e applicazioni come: 
FORTH logassemblatore ecc. Sci- 
vetemi e vi manderò la lista. 
Alessandeo Augello - Viale Del 
Fante, 56 - 90146 Palermo - Tel. 
501740. 


Vendo o cambio più di 60 pro- 
grammi per ZX Spectrum fra cui 
giochi di ottima risoluzione grafica 
(burgertime, pacman, frogger, hob- 
bit, crazy kong, vu-calc, vu-file. vu- 
3D, Pascal, Fortran) a metà prezzo. 
Vendo inoltre Atari 2600 in ottime 
condizioni con 6 cassette a sole L. 

250.000. 

Carlo Brini - Via Marciano di Era- 
clea, 25 - 00124 Roma - Tel. 
6094506. 

Spectrum, vendo-cambio pro- 
grammi, cerco contatti con club o 
singoli possessori dello Spectrum. 
Risponderò a tutti. 

Mario Pacchiarotti - Via Tuscola- 
na, 884 - 00174 Roma - Tel. 
06/7612788. 

Vendo ZX 81 + memopak 32 Kby- 
te + alimentatore, cavi collega- 
mento, 2 manuali, 1 libro di pro- 
grammi, una decina di cassette 
(scacchi, data base, statistica, fan- 
tasy game). L. 250.000 in tutto. Te- 
lefonare ore pasti a: 

Giuseppe Marini - Viale Primavera, 
25A/3 - 16148 Genova - Tel. 
010/330990. 

Cambio, vendo programmi per ZX 
Spectrum 16/48 Kbyte, vendo cas- 
sette con 1/2 programmi a L. 
5.000/7.000. 

Stefano Sansavini - Via dei Macci, 
18 50100 Firenze - Tel. 

055/652321. 

Compro listati o cassette per ZX 
Spectrum o TI/99/4D riguardanti il 
programma di computisteria e ra- 
gioneria per il triennio dell’istituto 
tecnico commerciale. 

Ivo Spadone - Via C. Colombo, 6 - 
18039 Ventimiglia (MI). 

Occasione per ZX81 e per ZX 
Spectrum. Vendo l’interfaccia pro- 
grammabile per joystick dell’Agfa 
a L. 50.000 (trattabili). Teledonare 
nelle ore serali. 

Giuseppe Bungaro - Viale dei Mon- 
fortani, 12 - 00135 Roma - Tel. 
06/33856611. 

Vendo programmi ZX Spectrum 
flipper - H. hedges - luna crabs - 
starclash - bugaboo - death chase - 
paintbox - catalogo a richiesta L. 

1.000. 

Stefano Nocilli - Via Tuscolana, 
224 - 00181 Roma. 

Vendo programmi per ZX Spec- 
trum a L. 6.000 cad. due program- 
mi L. 10.000. Per informazioni te- 
lefonare a: 

Marco Turiello - Via Fiordalisi, 1 - 
20146 Milano - Tel. 02/4335382 
(ore pasti) 3284770 (dopo le ore 
20 ). 


Vendo Sinclair ZX 81 completo di 
alimentatore cavetti per registrare 
memoria da 16 Kbyte RAM e ma- 
nuali in inglese e in italiano il tutto 
a L. 140.000. Telefonare ore pasti 
a: 

Pietro Di Giacomo - Via dei Filoso- 
fi, 14 - 06100 Perugia - Tel. 
075/31129. 

Cerco possessori di ZX Spectrum 
per scambio programmi. 

Marco Varazi - Via Pinturicchio, 10 

- 05100 Terni - Tel. 420282. 

Spectrum vendo programmi gioco 
e utilità risposta garantita invio 
elenco gratuitamente scrivere o te- 
lefonare ore cena a: 

Antonio Sfriso - Via O. Salamone, 
7 - 301173 Mestre (VE) - Tel. 
041/972887. 

Programmi su nastro, Spectrum: 
20 + 20 prg. (3 nastri diversi). ZX 
81:50 + 50 progr. 1Kbyte, 35 + 
35 progr. 16Kbyte, 20 maxi prog. 
16 Kbyte). Incredibile sono impaz- 
zito: ogni nastro L. 7.000 solo se 
soddisfatti dopo 10 giorni prova. 
Richiedili a: 

Bruno Del Medico - Via Torino, 72 

- 04016 Sabaudia. 

Cambio, vendo software Spectrum 
16/48 Kbyte - buon prezzo - invia- 
temi vostro elenco per scambio, vi 
invierò il mio, oppure richiedete la 
mia lista per acquisti allegando L. 
400 in francobolli. 

Erminio Benzoni - Via Del Cipres- 
so, 4 - 20050 Perledo (CO) - Tel. 
0341/830026 (ore serali). 

Cambio, vendo software per ZX 
Spectrum 16/48 Kbyte. 

Oltre 50 tioli a carattere commer- 
ciale ed altrettanti originali. L. 
4.000/L. 5.000 rispettivamente per 
16 e 48 Kbyte. 

Richiedere lista inviando L. 400 in 
bolli. 

G. Franco Posterli - Via Ariosto, 
123 - 20099 Sesto S.G. (MI) - Tel. 
02/2480163. 

Vendo 25 giochi originali inglesi 
su cassette per ZX Spectrum a L. 

50.000 + spese (spedizione - even- 
tuali fotocopie di manuali). Di- 
spondo inoltre di software di ogni 
tipo. Chiedere lista contenente ol- 
tre 200 titoli a: 

Nicola D’Alessandro - Via C. Alci- 
de De Gasperi, 413/D - 70125 Bari 

- Tel. 412470. 

Per la 

pubblicazione 
dei vostri 
annunci 
utilizzare il 
coupon a pag. 
66 . 
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SUPERSINC LIBRI 

CEDOLA DI ORDINAZIONE • LIBRI 

da compilare e spedire in busta chiusa a 

TechnoClub • Via Rosellini, 12 • 20124 Milano Tel. 6888228 

Ordino i seguenti libri per un importo totale di L + L. 2.000 

come contributo fisso per spese di spedizione 

Cod Cod Cod 

Cod Cod Cod 

□ Contanti allegati □ Assegno allegato n° 

□ Ho spedito l’importo a mezzo vaglia postale 

□ Ho versato l’importo sul ccp. n° 19445204 intestato a Technoclub • Milano 

□ Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per 
i soci in Italia) 

V . 
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PROGRAMMAZIONE 

DELLO ZX SPECTRUM cod. AJAC028 L. 16.200 

EASY PROGRAMMINO 

FOR THE ZX SPECTRUM cod. BSHT003 L. 16.900 


Nome ... 

Cognome 

Via ; 

Città C.A.P Prov 

Se richiesta fattura: 

Cod. F. e P. Iva 

Data 

Firma 

Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 

J 


SUPERSINC SOFTWARE 

CEDOLA DI ORDINAZIONE - software 

da compilare e spedire in busta chiusa a 

TechnoClub - Via Rosellini, 12 • 20124 Milano Tel. 6888228 

Ordino i seguenti libri per un importo totale di L + L. 2.000 

come contributo fisso per spese di spedizione 

Cod Cod Cod 

Cod Cod Cod 

□ Contanti allegati [ Assegno allegato n° 


□ Ho spedito l’importo a mezzo vaglia postale 

□ Ho versato l’importo sul ccp. n° 19445204 intestato a Technoclub • Milano 

□ Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per 
i soci in Italia) 

V 


‘ \ 

ALCHEMIST: cod. DIGMS03 L. 13.000 

STONKERS: cod. DIGMS06 L. 13.000 


Nome 

Cognome 

Via 

Città C.A.P Prov 

Se richiesta fattura: 

Cod. F. e P. Iva 

Data 

Firma 

Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 

J 
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SUPERSINC 

INPUT/OUTPUT 


A 


La rubrica INPUT/OUTPUT è gratuita ed aperta a 
tutti i lettori. Chi desidera comprare, vendere o 
cambiare hardware o software può inviare il ta- 
gliando a J .soft - Via Rosellini, 12 • 20124 MILANO 


r ; \ 

SUPERSINC è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ciò che vi passa per 
la testa). 


□ COMPRO □ VENDO □ CAMBIO 

□ ZX80 □ ZX81 I ZX Spectrum □ PERIF. □ SOFTWARE 




« 


Nome 
Via 


Cognome 


C.A.P 


Nome Cognome 

Via C.A.P 


Città Tel 

ZI J 


Città. 

L . 


Tel 


J 















HOME COMPUTER 


LA RIVISTA DEL COMPUTER IN CASA 


GIUGNO 1984 L. 3.500 


UNA PUBBLICAZIONE 

DEL GRUPPO EDITORIALE JACKSON 







/ ; J 
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TUTTE LE NOVITÀ DI LAS VEGAS 
I SEGRETI DELL'AQUARIUS 
A TU PER TU CON LA PROGRAMMAZIONE 

SPECIALE GRAFICA 


ZX 81 • VIC 20 • SPECTRUM • CBM 64 • ATARI • APPLE • SHARP 






La prima ... 

Enciclopedia 
di Elettronica 
e Informatica 


l’unica 


Il successo si ripete 


E.I. un prezioso strumento di 
formazione e di aggiornamento 

a cui sono abbonati anche migliaia di 
specialisti, tra cui 4000 quadri FIAT 

un orgoglioso primato 
dell’editoria italiana 

alla cui pubblicazione 
sono interessati editori 
francesi, tedeschi, svedesi, canadesi, 
inglesi, sudafricani, portoghesi, 
spagnoli, australiani, zelandesi, 
messicani, sudamericani 

uno strepitoso successo di lettori: 

fino a oggi 6.000.000 
di fascicoli venduti 

una splendida opera da 
biblioteca 

da 60 fascicoli settimanali 
7 volumi - 1680 pagine - 700 foto 
2200 illustrazioni a colori 


E.l. una prestigiosa 
collaborazione tra 

Learning Center 


Texas Instruments 



"wJ GRUPPO EDITORIALE JACKSON 



